home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / games / 602 / source / phil.cmd next >
OS/2 REXX Batch file  |  1992-01-31  |  82KB  |  2,804 lines
  1.  
  2. (***  Commands for debugging  ***)
  3.  
  4. COMMAND DEBUG
  5. ToggleFlag 0 (* Toggles meta-command Debug mode *)
  6. DoneWithTurn
  7. END_COMMAND
  8.  
  9. REM  COMMAND APB1
  10. REM  GetIt 204  (* gold cross *)
  11. REM  GetIt 211  (* Walkman radio ON *)
  12. REM  GetIt 213  (* power drill *)
  13. REM  TurnFlagON 1  (* Tark is robed *)
  14. REM  Destroy 302 (* kill fire elemental in garage *)
  15. REM  TurnFlagON 201 (* have heard first radio message *)
  16. REM  TurnCounterON 1 (* and am keping track of time since I have *)
  17. REM  GotoRoom 23 (* 59th Street *)
  18. REM  DoneWithTurn
  19. REM  END_COMMAND
  20.  
  21. COMMAND APB2
  22. GetIt 204  (* gold cross *)
  23. GetIt 211  (* Walkman radio ON *)
  24. GetIt 213  (* power drill *)
  25. GetIt 231  (* tagged pouch *)
  26. GetIt 236  (* gun *)
  27. GetIt 237  (* twinkie *)
  28. END_COMMAND
  29.  
  30. COMMAND APB2
  31. TurnFlagON 1  (* Tark is robed *)
  32. Destroy 302 (* kill fire elemental in garage *)
  33. TurnFlagON 201 (* have heard first radio message *)
  34. TurnCounterON 1 (* and am keping track of time since I have *)
  35. TurnFlagON 3 (* have visited Outside Castle *)
  36. Destroy 305 (* Cindy not in mud-house *)
  37. TurnFlagON 103 (* Cindy is a statue *)
  38. GotoRoom 53 (* courtyard *)
  39. DoneWithTurn
  40. END_COMMAND
  41.  
  42. COMMAND APB3
  43. GetIt 204  (* gold cross *)
  44. GetIt 211  (* Walkman radio ON *)
  45. GetIt 213  (* power drill *)
  46. GetIt 231  (* tagged pouch *)
  47. GetIt 236  (* gun *)
  48. GetIt 237  (* twinkie *)
  49. GetIt 250  (* Paisley cake *)
  50. GetIt 251  (* spices *)
  51. GetIt 252  (* troll box *)
  52. GetIt 253  (* black book *)
  53. END_COMMAND
  54.  
  55. COMMAND APB3
  56. TurnFlagON 1  (* Tark is robed *)
  57. Destroy 302 (* kill fire elemental in garage *)
  58. TurnFlagON 201 (* have heard first radio message *)
  59. TurnCounterON 1 (* and am keping track of time since I have *)
  60. TurnFlagON 3 (* have visited Outside Castle *)
  61. Destroy 305 (* Cindy not in mud-house *)
  62. SendToRoom 254 91 (* Cindy is a sword in black god room *)
  63. TurnFlagON 105  (* Tark is male *)
  64. GotoRoom 91 (* black god room *)
  65. DoneWithTurn
  66. END_COMMAND
  67.  
  68. COMMAND APB4
  69. GetIt 204  (* gold cross *)
  70. GetIt 211  (* Walkman radio ON *)
  71. GetIt 213  (* power drill *)
  72. GetIt 215 (* drinking glass *)
  73. SendToRoom 217 215  (* holy water --> drinking glass *)
  74. GetIt 219  (* extension cord *)
  75. GetIt 231  (* tagged pouch *)
  76. GetIt 236  (* gun *)
  77. GetIt 237  (* twinkie *)
  78. GetIt 250  (* Paisley cake *)
  79. END_COMMAND
  80. COMMAND APB4
  81. GetIt 251  (* spices *)
  82. GetIt 252  (* troll box *)
  83. GetIt 253  (* black book *)
  84. SendToRoom 257 252  (* troll flesh --> troll box *)
  85. GetIt 262  (* black heart *)
  86. GetIt 263  (* cindy hair *)
  87. SendToRoom 264 265  (* Tears of Sadness --> perfume vial *)
  88. GetIt 265  (* perfume vial *)
  89. GetIt 266  (* Jurbura *)
  90. GetIt 267  (* MuiraPuma *)
  91. GetIt 268  (* Skullcap *)
  92. GoToRoom 3  (* kitchen *)
  93. DoneWithTurn
  94. END_COMMAND
  95.  
  96. REM  COMMAND APB5
  97. REM  GetIt 282  (* clear liquid *)
  98. REM  DoneWithTurn
  99. REM  END_COMMAND
  100.  
  101.  
  102. (*** Check on health of Cindy sword ***)
  103.  
  104. COMMAND ANY
  105. CounterEquals 7 15  (* 10 turns since cindy sword fed *)
  106. Present 254  (* cindy sword here *)
  107. PrintMessage 53  (* sword bleeding less *)
  108. END_COMMAND
  109.  
  110. COMMAND ANY
  111. CounterEquals 7 30  (* 30 turns since cindy sword fed *)
  112. Present 254  (* cindy sword here *)
  113. PrintMessage 54  (* sword drying up *)
  114. END_COMMAND
  115.  
  116. COMMAND ANY
  117. CounterGT 7 35  (* 35 turns since cindy sword fed *)
  118. Present 254  (* cindy sword here *)
  119. PrintMessage 55  (* big trouble! *)
  120. END_COMMAND
  121.  
  122. COMMAND ANY
  123. CounterGT 7 40  (* 40 turns since cindy sword fed *)
  124. Present 254  (* cindy sword here *)
  125. PrintMessage 56  (* sword dies .. no point in going on *)
  126. GoToRoom 198  (* despair -- end of game *)
  127. TurnCounterOFF 7  (* so that this message quits *)
  128. DoneWithTurn
  129. END_COMMAND
  130.  
  131.  
  132. (*** Commands to handle troll lord regeneration ***)
  133.  
  134. COMMAND ANY
  135. CounterGT 8 6  (* troll lord has regenerated *)
  136. SwapLocations 256 309  (* fragments --> troll lord *)
  137. NOT Present 309  (* if troll lord not in current room ... *)
  138. SendToRoom 309 83  (* ... then make sure he's in troll room *)
  139. TurnCounterOFF 8  (* no longer regenerating *)
  140. END_COMMAND
  141.  
  142. COMMAND ANY
  143. CounterGT 8 6  (* troll lord just regenerated above, in current room *)
  144. PrintMessage 162  (* he's regenerated! *)
  145. TurnCounterOFF 8  (* no longer regenerating *)
  146. END_COMMAND
  147.  
  148. COMMAND ANY
  149. CounterGT 9 6  (* troll flesh or mush has regenerated outside castle *)
  150. Present 257  (* and done so in current room, e.g. flesh here *)
  151. OR
  152. Present 280  (* or purple mush here *)
  153. OR
  154. Present 281  (* or some mush here *)
  155. Destroy 257  (* replace troll flesh (if that's it ) ... *)
  156. PutInCurrentRoom 309  (* by troll lord borrowed from troll room *)
  157. PrintMessage 162  (* he's regenerated *)
  158. TurnCounterOFF 9  (* no longer regenerating *)
  159. END_COMMAND
  160.  
  161. COMMAND ANY
  162. CounterGT 9 6  (* flesh regenerated outside castle but not here *)
  163. Destroy 257  (* get rid of troll flesh, troll lord runs away *)
  164. TurnCounterOFF 9  (* no longer regenerating *)
  165. END_COMMAND
  166.  
  167. COMMAND ANY
  168. AtLocationLT 50  (* we're outside the castle *)
  169. Present 257  (* the troll flesh is here *)
  170. CounterEquals 9 0  (* It hasn't started growing yet *)
  171. CounterEquals 8 0  (* There aren't regenerating fragments somewhere about *)
  172. NOT Present 309  (* and there's no troll here *)
  173. PrintMessage 75  (* THEN ... the troll flesh starts to grow ... *)
  174. TurnCounterON 9  (* keep track of how long it's been regenerating *)
  175. END_COMMAND
  176.  
  177.  
  178. (*** Radio announcements -- this must be toward the beginning of the CMD
  179.      file since it always pauses at the end of the description.  If
  180.      something else printed long description first, the two together
  181.      might run off the screen.                                        ***)
  182.  
  183. COMMAND PLAY RADIO
  184. RedirectTo TURN RADIO
  185. END_COMMAND
  186.  
  187. COMMAND TURN RADIO
  188. Present 210  (* OFF radio present *)
  189. SwapLocations 210 211  (* swap with ON radio *)
  190. Tone 523 1050  (* The Love Boat *)
  191. Tone 587 450
  192. Tone 659 450
  193. Tone 698 450
  194. Tone 784 450
  195. Tone 698 450
  196. Tone 440 1050
  197. PrintMessage 13
  198. DoneWithTurn
  199. END_COMMAND
  200.  
  201. COMMAND TURN RADIO
  202. Present 211  (* ON radio present *)
  203. SwapLocations 211 210  (* swap with OFF radio *)
  204. PrintMessage 14
  205. DoneWithTurn
  206. END_COMMAND
  207.  
  208. COMMAND ANY
  209. Present 211 (* ON radio present *)
  210. FlagOFF 201 (* hasn't heard message 1 yet *)
  211. PrintMessage 201 (* print radio message 1 *)
  212. TurnFlagON 201 (* don't print it again *)
  213. TurnCounterON 1 (* keep track of time for future messages *)
  214. WaitForReturn
  215. END_COMMAND
  216.  
  217. COMMAND ANY
  218. Present 211 (* ON radio present *)
  219. FlagOFF 202 (* hasn't heard message 2 yet *)
  220. CounterGT 1 40 (* 40 moves since radio first turned on *)
  221. PrintMessage 202 (* print radio message 2 *)
  222. TurnFlagON 202 (* don't print it again *)
  223. WaitForReturn
  224. END_COMMAND
  225.  
  226. COMMAND ANY
  227. Present 211 (* ON radio present *)
  228. FlagOFF 203 (* hasn't heard message 3 yet *)
  229. CounterGT 1 80 (* 80 moves since radio first turned on *)
  230. PrintMessage 203 (* print radio message 3 *)
  231. TurnFlagON 203 (* don't print it again *)
  232. WaitForReturn
  233. END_COMMAND
  234.  
  235. COMMAND ANY
  236. Present 211 (* ON radio present *)
  237. FlagOFF 204 (* hasn't heard message 4 yet *)
  238. CounterGT 1 120 (* 120 moves since radio first tuend on *)
  239. PrintMessage 204 (* print radio message 4 *)
  240. TurnFlagON 204 (* don't print it again *)
  241. WaitForReturn
  242. END_COMMAND
  243.  
  244.  
  245. (*** Commands for attacking and being attacked -- need to be near top of
  246.      CMD file so that attack by hostiles is always checked.  Note tha ANY
  247.      commands always get evaluated before other ones.                  ***)
  248.  
  249. COMMAND SHOOT GUN AT ANY
  250. PrintMessage 196  (* syntax is "SHOOT noun WITH GUN" *)
  251. DoneWithTurn
  252. END_COMMAND
  253.  
  254. REM  The below doesn't work 'cause a later refrence like DestroyNOUN will
  255. REM  take NOUN to refer to the original noun GUN rather than the redirected
  256. REM  noun.
  257. REM
  258. REM  COMMAND SHOOT ANY WITH GUN
  259. REM  RedirectTo SHOOT $OBJECT$ WITH GUN
  260. REM  END_COMMAND
  261.  
  262. COMMAND ATTACK ANY WITH GUN
  263. RedirectTo SHOOT $NOUN$ WITH GUN
  264. END_COMMAND
  265.  
  266. COMMAND SHOOT ANY WITH GUN
  267. Present 236 (* gun is here *) 
  268. FlagON 107 (* no bullet *)
  269. PrintMessage 59
  270. DoneWithTurn
  271. END_COMMAND
  272.  
  273. COMMAND SHOOT ANY WITH GUN
  274. Present 236 (* gun is here *) 
  275. NOUNPresent
  276. NOUNIsNumber 303 (*Survivalist*)
  277. OR
  278. NOUNIsNumber 304 (*police*)
  279. PrintMessage 58 (* Survivalists kill you *)
  280. ReDirectTo KILL_PLAYER
  281. END_COMMAND  (* death *)
  282.  
  283. COMMAND SHOOT SKELETONS WITH GUN
  284. FlagOFF 107  (* bullet left in gun *)
  285. PrintMessage 63 (* can only get one *)
  286. TurnFlagON 107
  287. DoneWithTurn
  288. END_COMMAND
  289.  
  290. COMMAND SHOOT MYSELF WITH GUN
  291. Present 256  (* gun is here *)
  292. FlagOFF 107  (* bullet left in gun *)
  293. PrintMessage 92  (* OK -- boom! *)
  294. TurnFlagON 107  (* bullet used up *)
  295. ReDirectTo KILL_PLAYER
  296. END_COMMAND
  297.  
  298. COMMAND SHOOT LORD WITH GUN
  299. Present 236 (* gun is here *)
  300. FlagOFF 107  (* bullet left in gun *) 
  301. NOUNPresent
  302. PrintMessage 57 (* you kill it bloodily *) 
  303. SwapLocations 309 256  (* troll lord --> fragments *)
  304. TurnFlagON 107 (* no bullet left *)
  305. TurnCounterOFF 10  (* There is no hostile in room now *)
  306. TurnCounterON 8  (* troll lord starts regenerating *)
  307. DoneWithTurn
  308. END_COMMAND
  309.  
  310. COMMAND SHOOT DEMIGOD WITH GUN
  311. Present 236 (* gun is here *) 
  312. FlagOFF 107  (* bullet left in gun *)
  313. NOUNPresent
  314. PrintMessage 100  (* you nail the bastard! *) 
  315. SwapLocations 311 262  (* demigod --> heart *)
  316. TurnFlagON 107 (* no bullet left *)
  317. TurnCounterOFF 10  (* There is no hostile in room now *)
  318. PlusScore 10  (* worth ten points *)
  319. DoneWithTurn
  320. END_COMMAND
  321.  
  322. COMMAND SHOOT ANY WITH GUN
  323. Present 236 (* gun is here *) 
  324. NOUNIsCreature 
  325. NOUNPresent
  326. PrintMessage 57 (* you kill it bloodily *) 
  327. MakeVarRoomNum 25 (* save room number in temp. variable *)
  328. GoToRoom 199 (* temp. go to irrelevant room *)
  329. DestroyNOUN  (* kill the creature: bug manifests in irrelevant room *)
  330. GoToVariableRoom 25 (* pop back to original room *)
  331. TurnFlagON 107 (* no bullet left *)
  332. DoneWithTurn
  333. END_COMMAND
  334.  
  335. COMMAND ATTACK SKELETONS WITH SWORD
  336. PrintMessage 63 (* can only get one *)
  337. DoneWithTurn
  338. END_COMMAND
  339.  
  340. COMMAND ATTACK LORD WITH SWORD
  341. Present 254 (* sword is here *) 
  342. NOUNIsCreature 
  343. NOUNPresent
  344. PrintMessage 60 (* you kill it bloodily *) 
  345. SwapLocations 309 256  (* troll lord --> fragments *)
  346. TurnCounterOFF 10  (* There is no hostile in room now *)
  347. TurnCounterON 7 (* Cindy fully charged *)
  348. TurnCounterON 8  (* troll lord starts regenerating *)
  349. DoneWithTurn
  350. END_COMMAND
  351.  
  352. COMMAND ATTACK FRAGMENTS WITH SWORD
  353. Present 254  (* sword is here *)
  354. NOUNPresent
  355. PrintMessage 193  (* you pound some more on the troll lord bits *)
  356. TurnCounterON 8  (* reset troll lord regeneration to beginning *)
  357. DoneWithTurn
  358. END_COMMAND
  359.  
  360. COMMAND ATTACK DEMIGOD WITH SWORD
  361. Present 254  (* sword is here *)
  362. NOUNPresent  (* demigod is here *)
  363. PrintMessage 101  (* sorry... you die *)
  364. Destroy 254  (* and sword is destroyed *)
  365. ReDirectTo KILL_ALL
  366. END_COMMAND  (* Tark eventually killed or whatever too *)
  367.  
  368. COMMAND ATTACK MYSELF WITH SWORD
  369. Present 254  (* sword is here *)
  370. PrintMessage 93  (* you do it -- hear cindy screaming *)
  371. Destroy 254  (* sword disappears *)
  372. PutInCurrentRoom 310 (* to be replaced by Cindy, free *)
  373. Destroy 214 (* Get rid of Cindy-not-here message in dining area *)
  374. PlusScore 10  (* worth ten points *)
  375. ReDirectTo KILL_PLAYER
  376. END_COMMAND  (* and then Phil dies *)
  377.  
  378. COMMAND ATTACK ANY WITH SWORD
  379. Present 254 (* sword is here *) 
  380. NOUNIsCreature 
  381. NOUNPresent
  382. PrintMessage 60 (* you kill it bloodily *) 
  383. MakeVarRoomNum 25 (* save room number in temp. variable *)
  384. GoToRoom 199 (* temp. go to irrelevant room *)
  385. DestroyNOUN  (* kill the creature: bug manifests in irrelevant room *)
  386. GoToVariableRoom 25 (* pop back to original room *)
  387. TurnCounterON 7 (* Cindy fully charged *)
  388. DoneWithTurn
  389. END_COMMAND
  390.  
  391. COMMAND ATTACK FRAGMENTS
  392. NOUNPresent
  393. PrintMessage 192  (* can't make headway *)
  394. DoneWithTurn
  395. END_COMMAND
  396.  
  397. COMMAND ATTACK LOCK
  398. Present 269  (* flesh lock *)
  399. PrintMessage 194  (* no effect *)
  400. DoneWithTurn
  401. END_COMMAND
  402.  
  403. COMMAND ATTACK ANY
  404. ObjectIsNumber 0  (* no weapon specified *)
  405. PrintMessage 76  (* with what? *)
  406. DoneWithTurn
  407. END_COMMAND
  408.  
  409. COMMAND SHOOT ANY
  410. NOT NOUNIsNumber 236 (* not SHOOT GUN *)
  411. ObjectIsNumber 0  (* no weapon specified *)
  412. PrintMessage 76  (* with what? *)
  413. DoneWithTurn
  414. END_COMMAND
  415.  
  416. COMMAND ANYBODY, AWAY ANY 
  417. NAMEIsNumber 300  (* Tark, ... *)
  418. Present 300  (* Tark is here *)
  419. NOT Present 204  (* no gold cross *)
  420. PrintMessage 74  (* sorry *)
  421. DoneWithTurn
  422. END_COMMAND
  423.  
  424. COMMAND ANYBODY, AWAY SKELETONS
  425. NAMEIsNumber 300  (* Tark, ... *)
  426. Present 300  (* Tark is here *)
  427. Present 308  (* animated skeletons here *)
  428. PrintMessage 64  (* Tark aways; note anti-magic shell *)
  429. Destroy 308  (* get rid of them *)
  430. TurnCounterOFF 10  (* There is no hostile in room now *)
  431. DoneWithTurn
  432. END_COMMAND
  433.  
  434. COMMAND ANYBODY, AWAY SKELETONS
  435. NAMEIsNumber 300  (* Tark, ... *)
  436. Present 300  (* Tark is here *)
  437. Present 201  (* your converted-undead friends are here *)
  438. PrintMessage 65  (* you waste them *)
  439. Destroy 201
  440. DoneWithTurn
  441. END_COMMAND
  442.  
  443. COMMAND ANYBODY, AWAY DEMONESS
  444. NAMEIsNumber 300  (* Tark, ... *)
  445. Present 300  (* Tark is here *)
  446. NOUNPresent
  447. PrintMessage 160  (* she's unimpressed *)
  448. DoneWithTurn
  449. END_COMMAND
  450.  
  451. COMMAND ANY
  452. CounterEquals 10 0  (* we're not counting time spent with hostile *)
  453. Present 308  (* animated skeletons here *)
  454. OR
  455. Present 309  (* or troll lord is here *)
  456. OR
  457. Present 311  (* or demigod is here *)
  458. OR
  459. Present 312  (* demoness is here and not feeling amorous *)
  460. OR
  461. Present 314  (* guard is here *)
  462. TurnCounterON 10  (* start counting *)
  463. END_COMMAND
  464.  
  465. COMMAND ANY
  466. NOT Present 308  (* animated skeletons not here *)
  467. NOT Present 309  (* nor troll lord *)
  468. NOT Present 311  (* nor demigod *)
  469. NOT Present 312  (* nor unamorous demoness *)
  470. NOT Present 314  (* nor guard *)
  471. TurnCounterOFF 10  (* stop "hostile present" counter *)
  472. END_COMMAND
  473.  
  474. COMMAND ANY
  475. CounterGT 10 2  (* He's had 2.5 chances with a hostile *)
  476. Present 308  (* specifically, the animated skeletons *)
  477. PrintMessage 96  (* they kill you *)
  478. ReDirectTo KILL_PLAYER
  479. END_COMMAND  (* you die *)
  480.  
  481. COMMAND ANY
  482. CounterGT 10 2  (* He's had 2.5 chances with a hostile *)
  483. Present 309  (* specifically, the troll lord *)
  484. PrintMessage 97  (* it kills you *)
  485. ReDirectTo KILL_PLAYER
  486. END_COMMAND  (* you die *)
  487.  
  488. COMMAND ANY
  489. CounterGT 10 2  (* He's had 2.5 chances with a hostile *)
  490. Present 312  (* specifically, the unamorous demoness *)
  491. PrintMessage 153  (* you have no mouth but must scream *)
  492. GoToRoom 198 (* despair *)
  493. DoneWithTurn
  494. END_COMMAND  (* you die *)
  495.  
  496. COMMAND ANY
  497. CounterGT 10 2  (* He's had 2.5 chances with a hostile *)
  498. Present 314  (* specifically, the guard *)
  499. PrintMessage 159  (* it kills you *)
  500. ReDirectTo KILL_ALL
  501. END_COMMAND  (* you die *)
  502.  
  503. COMMAND ANY
  504. CounterEquals 10 1  (* He's had 1 chance with a hostile *)
  505. Present 311  (* specifically, the demigod *)
  506. PrintMessage 102   (* it screeches and conjures *)
  507. END_COMMAND
  508.  
  509. COMMAND ANY
  510. CounterEquals 10 2  (* He's had 2 chance with a hostile *)
  511. Present 311  (* specifically, the demigod *)
  512. PrintMessage 105   (* it continues to conjures *)
  513. END_COMMAND
  514.  
  515. COMMAND ANY
  516. CounterGT 10 2  (* He's had 2.5 chances with a hostile *)
  517. Present 311  (* specifically, the demigod *)
  518. PrintMessage 103  (* it binds you for eternity *)
  519. TurnCounterOFF 10  (* no hostiles anymore *)
  520. GoToRoom 196  (* eternity -- no escape *)
  521. TurnFlagON 255  (* temp. flag -- finish the turn *)
  522. IsSomewhere 310  (* IF ... Cindy is still alive somehwere *)
  523. OR
  524. IsSomewhere 254  (*      e.g. as a sword *) 
  525. OR
  526. FlagON 101       (*      e.g. as a picture *)
  527. OR
  528. FlagON 103       (*      e.g. as a statue  *)
  529. TurnFlagOFF 255
  530. PrintMessage 104  (* THEN ... he tortures her once in awhile *)
  531. DoneWithTurn
  532. END_COMMAND  (* you die *)
  533.  
  534. COMMAND ANY
  535. FlagON 255   (* ... ELSE just finish turn *)
  536. TurnFlagOFF 255
  537. DoneWithTurn
  538. END_COMMAND
  539.  
  540. (*** Cops pull up first time you're outside castle ***)
  541.  
  542. COMMAND ANY
  543. AtLocation 24  (* outside castle *)
  544. FlagOFF 3 (* first time here *)
  545. TurnFlagON 3 (* OK -- you've been here now *)
  546. PrintMessage 17  (* cops pull up *)
  547. PutInCurrentRoom 230  (* squad car here now *)
  548. PutInCurrentRoom 304  (* police officers here now *)
  549. DoneWithTurn  (* interrupted whatever was planned *)
  550. END_COMMAND
  551.  
  552.  
  553. (*** Miscellaneous commands for Phil's house ***)
  554.  
  555. COMMAND EXAMINE ME
  556. DescribeThing 226  (* Phil *)
  557. DoneWithTurn
  558. END_COMMAND
  559.  
  560. COMMAND TAKE NOTEBOOK
  561. NOUNPresent
  562. PrintMessage 177  (* you can't, it's fixed in the aether *)
  563. DoneWithTurn
  564. END_COMMAND
  565.  
  566. COMMAND TAKE ALL
  567. Present 200  (* dnd notebook *)
  568. PrintMessage 177  (* you can't take notebook, it's fixed in the aether *)
  569. END_COMMAND  (* fall through to AGT to take everything movable *)
  570.  
  571. COMMAND SOUTH
  572. AtLocation 4  (* Living Room --> Bottom of the Sea *)
  573. PrintMessage 95  (* you drown *)
  574. ReDirectTo KILL_ALL
  575. END_COMMAND  (* you die *)
  576.  
  577. COMMAND SOUTH
  578. AtLocation 11 (* Phil's garage *)
  579. InRoom 302 (* fire elemental is present *)
  580. PrintMessage 1 (* it blocks your way *)
  581. DoneWithTurn
  582. END_COMMAND
  583.  
  584. COMMAND EXAMINE SKELETONS
  585. Present 201 (* friends' skeletons are here *)
  586. PutInCurrentRoom 204  (* Paul's gold cross now available *)
  587. END_COMMAND
  588.  
  589. COMMAND EXAMINE WATER
  590. Present 208  (* burst pipe and water in garage *)
  591. NOT Present 216  (* some water aquired elsewhere *)
  592. NOT Present 217  (* holy water *)
  593. ReDirectTo EXAMINE PIPE
  594. END_COMMAND
  595.  
  596. (*** Commands to handle television ***)
  597.  
  598. COMMAND TURN TELEVISION
  599. NOUNPresent
  600. FlagOFF 12  (* television off *)
  601. FlagOFF 13  (* tv never tried before *)
  602. PrintMessage 169  (* see Rhom *)
  603. TurnFlagON 12  (* tv on now *)
  604. TurnFlagON 13  (* and he's seen Rhom now *)
  605. DoneWithTurn
  606. END_COMMAND
  607.  
  608. COMMAND TURN TELEVISION
  609. NOUNPresent
  610. FlagOFF 12  (* tv off *)
  611. FlagON 13  (* tv tried before *)
  612. PrintMessage 170  (* static *)
  613. TurnFlagON 12  (* tv on now *)
  614. DoneWithTurn
  615. END_COMMAND
  616.  
  617. COMMAND TURN TELEVISION
  618. NOUNPresent
  619. FlagON 12  (* tv on *)
  620. PrintMessage 171  (* you turn it off *)
  621. TurnFlagOFF 12  (* tv off now *)
  622. DoneWithTurn
  623. END_COMMAND
  624.  
  625.  
  626. (*** Need to dig to get to Phil's guest bathroom *)
  627.  
  628. COMMAND USE SHOVEL
  629. ReDirectTo DIG WITH SHOVEL
  630. END_COMMAND
  631.  
  632. COMMAND DIG ANY
  633. AtLocation 12  (* small hall area with dirt *)
  634. NOT Present 212  (* no passage dug here *)
  635. Present 205  (* shovel in room or carried *)
  636. PrintMessage 2 (* you dig ... *)
  637. PutInCurrentRoom 212  (* put dug passage here *)
  638. ChangePassageway 1 14 (* allow movement to guest bathroom *)
  639. DoneWithTurn
  640. END_COMMAND
  641.  
  642. COMMAND DIG ANY
  643. AtLocation 12  (* in small hall area with dirt *)
  644. NOT Present 205 (* no shovel *)
  645. PrintMessage 3 (* no luck *)
  646. DoneWithTurn
  647. END_COMMAND
  648.  
  649. COMMAND DIG ANY
  650. PrintMessage 4 (* you dig ineffectually *)
  651. DoneWithTurn
  652. END_COMMAND
  653.  
  654.  
  655. (*** Need to flush guest toilet to flood garage and kill fire elemental ***)
  656.  
  657. COMMAND USE TOILET
  658. ReDirectTo FLUSH TOILET
  659. END_COMMAND
  660.  
  661. COMMAND FLUSH TOILET
  662. AtLocation 14  (* guest bathroom *)
  663. Destroy 302  (* fire elemental in garage is killed *)
  664. SendToRoom 208 11  (* put burst-pipe/water in garage *)
  665. PrintMessage 5  (* you here screeching ... *)
  666. PlusScore 10  (* worth ten points *)
  667. DoneWithTurn
  668. END_COMMAND
  669.  
  670. COMMAND FLUSH TOILET
  671. AtLocation 8  (* master bathroom *)
  672. PrintMessage 6  (* toilet flushes *)
  673. DoneWithTurn
  674. END_COMMAND
  675.  
  676.  
  677. (*** Jumping off the cliff in Phil's back yard kills you. ***)
  678.  
  679. COMMAND NORTH
  680. AtLocation 10  (* back yard *)
  681. ReDirectTo JUMP
  682. END_COMMAND
  683.  
  684. COMMAND DOWN
  685. AtLocation 10  (* back yard *)
  686. ReDirectTo JUMP
  687. END_COMMAND
  688.  
  689. COMMAND JUMP
  690. AtLocation 10  (* back yard *)
  691. PrintMessage 164  (* you fall forever *)
  692. ReDirectTo KILL_PLAYER
  693. END_COMMAND 
  694.  
  695.  
  696. (*** Some commands for examining Tark and Phil. ***)
  697.  
  698. COMMAND EXAMINE TARK
  699. FlagON 105  (* Tark is male. *)
  700. PrintMessage 183  (* " *)
  701. END_COMMAND
  702.  
  703. COMMAND EXAMINE TARK
  704. FlagON 110  (* Tark is a eunich *)
  705. PrintMessage 184  (* " *)
  706. END_COMMAND
  707.  
  708. REM  Following yields "What any?" error when drops to AGT processing.
  709. REM 
  710. REM  COMMAND EXAMINE ME
  711. REM  ReDirectTo INVENTORY
  712. REM  END_COMMAND
  713.  
  714. COMMAND INVENTORY
  715. FlagON 106  (* Phil is female *)
  716. PrintMessage 185 (* " *)
  717. END_COMMAND
  718.  
  719. COMMAND INVENTORY
  720. FlagON 109  (* Phil is a eunich *)
  721. PrintMessage 186 (* " *)
  722. END_COMMAND
  723.  
  724. COMMAND INVENTORY
  725. FlagON 108  (* Phil has tatoos *)
  726. PrintMessage 187 (* " *)
  727. END_COMMAND
  728.  
  729.  
  730. (*** Tark's nakedness -- she must be robed outside or police get her ***)
  731.  
  732. COMMAND ANY
  733. AtLocation 20 (* Front of Phil's House *)
  734. Present 300 (* Tark is here *)
  735. FlagOFF 1 (* Tark is naked *)
  736. PrintMessage 9 (* Police come and haul you away *)
  737. ReDirectTo KILL_ALL
  738. END_COMMAND  (* death *)
  739.  
  740. COMMAND EXAMINE TARK
  741. Present 300  (* Tark is here *)
  742. FlagOFF 1  (* Tark is naked *)
  743. PrintMessage 19  (* give naked Tark description *)
  744. END_COMMAND  (* drop to normal examine text *)
  745.  
  746. COMMAND EXAMINE TARK
  747. Present 300  (* Tark is here *)
  748. FlagON 1  (* Tark is robed *)
  749. PrintMessage 20  (* give robed Tark description *)
  750. END_COMMAND  (* drop to normal examine text *)
  751.  
  752. COMMAND ANYBODY, TAKE ROBE
  753. NAMEIsNumber 300  (* TARK, TAKE ROBE *)
  754. ReDirectTo ANYBODY, WEAR ROBE
  755. END_COMMAND
  756.  
  757. COMMAND ANYBODY, WEAR ROBE
  758. NAMEIsNumber 300  (* TARK, WEAR ROBE *)
  759. Present 202  (* robe is present *)
  760. Present 300  (* Tark is here too *)
  761. TurnFlagON 1  (* Tark is now robed *)
  762. Destroy 202 (* get rid of robe *)
  763. PrintMessage 7 (* Tark puts on robe *)
  764. DoneWithTurn
  765. END_COMMAND
  766.  
  767.  
  768. (*** Tark spells ***)
  769.  
  770. COMMAND ANYBODY, CONJURE CURSE
  771. Present 300  (* Tark is here *)
  772. PrintMessage 45  (* Tark chastizes *)
  773. DoneWithTurn  (* nothing comes of it *)
  774. END_COMMAND
  775.  
  776. COMMAND ANYBODY, CONJURE RESIST COLD ON ME
  777. NAMEIsNumber 300  (* TARK, ... *)
  778. Present 300  (* Tark is here *)
  779. TurnCounterON 2  (* Phil is resisting cold *)
  780. PrintMessage 25  (* Tark conjures successfully; feel warmth *)
  781. DoneWithTurn
  782. END_COMMAND
  783.  
  784. COMMAND ANYBODY, CONJURE RESIST COLD ON TARK
  785. NAMEIsNumber 300  (* TARK, ... *)
  786. Present 300  (* Tark is here *)
  787. TurnCounterON 3  (* Tark is resisting cold *)
  788. PrintMessage 22  (* Tark conjures successfully *)
  789. DoneWithTurn
  790. END_COMMAND
  791.  
  792. COMMAND ANYBODY, CONJURE RESIST COLD ON ANY
  793. NAMEIsNumber 300  (* TARK, ... *)
  794. ObjectIsNumber 0  (* No object specified *)
  795. Present 300 (* Tark is here *)
  796. PrintMessage 173 (* Cast on whom? *)
  797. DoneWithTurn
  798. END_COMMAND
  799.  
  800. COMMAND ANYBODY, CONJURE RESIST COLD ON ANY
  801. NAMEIsNumber 300  (* TARK, ... *)
  802. Present 300 (* Tark is here *)
  803. PrintMessage 24 (* Tark doesn't want to. *)
  804. DoneWithTurn
  805. END_COMMAND
  806.  
  807. COMMAND ANY
  808. CounterGT 2 50  (* Phil's Resist Cold is up *)
  809. TurnCounterOFF 2  (* get rid of it *)
  810. PrintMessage 26 (* warmth goes away *)
  811. END_COMMAND
  812.  
  813. COMMAND ANY
  814. CounterGT 3 50  (* Tark's Resist Cold is up *)
  815. TurnCounterOFF 3  (* get rid of it *)
  816. END_COMMAND  (* no message *)
  817.  
  818. COMMAND ANYBODY, CONJURE LIGHT
  819. NAMEIsNumber 300  (* TARK, ... *)
  820. NAMEPresent  (* Tark is here *)
  821. AtLocation 71
  822. OR
  823. AtLocation 72  (* in Torture room/ prison cell area *)
  824. SendToRoom 291 71  (* put light in room torture room *)
  825. SendToRoom 292 72  (* .. and spilling into prison cell *)
  826. TurnCounterON 4  (* keep track of how long it lasts *)
  827. PrintMessage 46  (* light appears *)
  828. LookAtRoom  (* Print room description now *)
  829. DoneWithTurn
  830. END_COMMAND
  831.  
  832. COMMAND ANYBODY, CONJURE LIGHT
  833. NAMEIsNumber 300  (* TARK, ... *)
  834. NAMEPresent  (* Tark is here *)
  835. AtLocation 73
  836. OR
  837. AtLocation 74  (* in vat room / storage room area *)
  838. SendToRoom 293 73  (* put some light in vat room *)
  839. SendToRoom 294 74  (* .. and spilling into storage room *)
  840. TurnCounterON 5  (* keep track of how long it lasts *)
  841. PrintMessage 46  (* light appears *)
  842. LookAtRoom  (* Print room description now *)
  843. DoneWithTurn
  844. END_COMMAND
  845.  
  846. COMMAND ANY
  847. CounterGT 4 20  (* torture room/ prison cell light expired *)
  848. TurnCounterOFF 4  (* kill it *)
  849. Destroy 291  (* get rid of meta-lights *)
  850. Destroy 292
  851. END_COMMAND
  852.  
  853. COMMAND ANY
  854. CounterGT 5 20  (* vat room/ storage room light expired *)
  855. TurnCounterOFF 5  (* kill it *)
  856. Destroy 293  (* get rid of meta-lights *)
  857. Destroy 294
  858. END_COMMAND
  859.  
  860. COMMAND ANYBODY, CONJURE LIGHT
  861. NAMEIsNumber 300  (* TARK, ... *)
  862. NAMEPresent  (* Tark is here *)
  863. PrintMessage 47  (* you can already see here *)
  864. DoneWithTurn
  865. END_COMMAND
  866.  
  867. COMMAND ANY
  868. Present 306  (* uncharmed snakes here *)
  869. PrintMessage 49  (* they kill you *)
  870. ReDirectTo KILL_PLAYER
  871. END_COMMAND  (* death *)
  872.  
  873. COMMAND ANYBODY, CONJURE SNAKE CHARM
  874. NAMEIsNumber 300  (* TARK, ... *)
  875. Present 300  (* Tark is here *)
  876. AtLocation 71  (* in torture room or prison cell *)
  877. OR
  878. AtLocation 72
  879. PrintMessage 48  (* snakes under control *)
  880. SwapLocations 306 307  (* swap active snakes with charmed snakes *)
  881. TurnCounterON 6  (* keep track of how long spell lasts *)
  882. DoneWithTurn
  883. END_COMMAND
  884.  
  885. COMMAND ANYBODY, CONJURE SNAKE CHARM
  886. Present 300  (* Tark is here *)
  887. PrintMessage 51  (* what snakes? -- last cmd didn't take over *)
  888. DoneWithTurn
  889. END_COMMAND
  890.  
  891. COMMAND ANY
  892. CounterGT 6 10  (* Snake Charm run out *)
  893. SwapLocations 306 307  (* switch charmed and uncharmed snakes *)
  894. TurnCounterOFF 6  (* spell is over *)
  895. END_COMMAND
  896.  
  897. COMMAND TAKE SNAKES
  898. Present 307  (* Charmed snakes are here *)
  899. PrintMessage 50  (* Tark forbids it 'cause they're evil *)
  900. Destroy 307  (* and kills the snakes to score her point *)
  901. DoneWithTurn
  902. END_COMMAND
  903.  
  904. COMMAND ANYBODY, CONJURE ANY
  905. NAMEIsNumber 300  (* TARK, ... *)
  906. Present 300  (* Tark is here *)
  907. PrintMessage 23  (* Tark conjures unsuccessfully *)
  908. DoneWithTurn
  909. END_COMMAND
  910.  
  911.  
  912. (*** Miscellaneous commands for outside ***)
  913.  
  914. COMMAND NORTHWEST
  915. AtLocation 20 (* driveway --> front porch *)
  916. FlagOFF 2 (* haven't tried front door from porch yet *)
  917. PrintMessage 10 (* things seem familiar and comfortable here *)
  918. END_COMMAND
  919.  
  920. COMMAND NORTH
  921. AtLocation 21  (* front porch --> front door *)
  922. FlagOFF 2 (* haven't tried front door from porch yet *)
  923. PrintMessage 11  (* your hand passes through the door *)
  924. TurnFlagON 2 (* now he's tried it *)
  925. DoneWithTurn (* don't move from front porch *)
  926. END_COMMAND
  927.  
  928. COMMAND NORTH
  929. AtLocation 21 (* front porch --> front door *)
  930. PrintMessage 12 (* you walk through to ... the front porch! *)
  931. END_COMMAND
  932.  
  933. COMMAND TALK TO SURVIVALISTS
  934. Present 303  (* survivalists here *)
  935. PrintMessage 15  (* fuck off *)
  936. DoneWithTurn
  937. END_COMMAND
  938.  
  939. COMMAND TALK TO OFFICERS
  940. Present 304 (* officers here *)
  941. PrintMessage 16 (* you'd better move on, sir *)
  942. DoneWithTurn
  943. END_COMMAND
  944.  
  945. COMMAND EXAMINE MAN
  946. Present 230  (* squad car *)
  947. PrintMessage 176  (* handcuffed in back seat *)
  948. DoneWithTurn
  949. END_COMMAND
  950.  
  951. COMMAND TALK TO MAN
  952. Present 230  (* squad car *)
  953. IsOpen 230  (* squad car *)
  954. PrintMessage 165  (* ok, but nothing important *)
  955. DoneWithTurn
  956. END_COMMAND
  957.  
  958. COMMAND TALK TO MAN
  959. Present 230  (* squad car *)
  960. NOT IsOpen 230  (* squad car *)
  961. PrintMessage 166  (* can't hear through window *)
  962. DoneWithTurn
  963. END_COMMAND
  964.  
  965. COMMAND OPEN DOOR
  966. Present 230  (* squad car is here *)
  967. ReDirectTo OPEN CAR
  968. END_COMMAND  (* then door means car door *)
  969.  
  970. COMMAND ENTER CAR
  971. ReDirectTo OPEN CAR
  972. END_COMMAND
  973.  
  974. COMMAND OPEN CAR
  975. Present 230  (* the squad car is here *)
  976. PrintMessage 18  (* you open the front door *)
  977. OpenIt 230  (* open the squad car *)
  978. DoneWithTurn
  979. END_COMMAND
  980.  
  981. COMMAND EXAMINE BODY
  982. Present 235  (* it's the dead survivalist *)
  983. PutInCurrentRoom 236 (* Phil's found the gun *)
  984. PutInCurrentRoom 237 (*   and twinkie *)
  985. END_COMMAND
  986.  
  987.  
  988. (*** Commands relating to Cindy in the mud-house: must say "you are free"
  989.      to release her.  You cannot approach her since otherwise you could
  990.      easily get her hair for the recipe.  When released, she fades to next
  991.      binding.                                                          ***)
  992.  
  993. COMMAND TALK TO CINDY
  994. AtLocation 54 (* mud-house *)
  995. ReDirectTo EXAMINE CINDY
  996. END_COMMAND
  997.  
  998. COMMAND TOUCH CINDY
  999. ReDirectTo TAKE CINDY
  1000. END_COMMAND
  1001.  
  1002. COMMAND TAKE CINDY
  1003. Present 305  (* Cindy, trapped in mud-house *)
  1004. PrintMessage 172  (* you can't get to her *)
  1005. DoneWithTurn
  1006. END_COMMAND
  1007.  
  1008. COMMAND CINDY, YOU ARE FREE
  1009. ReDirectTo YOU ARE FREE
  1010. END_COMMAND
  1011.  
  1012. COMMAND YOU ARE FREE
  1013. AtLocation 54  (* in mud-house *)
  1014. Destroy 305  (* get rid of mud-house Cindy *)
  1015. TurnFlagON 101  (* Cindy is now an undiscovered picture *)
  1016. PrintMessage 21
  1017. PlusScore 10  (* worth ten points *)
  1018. DoneWithTurn
  1019. END_COMMAND
  1020.  
  1021.  
  1022. (*** Commands to handle castle gate.  Everyone must be Resist Cold'ed to
  1023.      survive cold trap.  Phil passes out and Tark takes him inside.    ***)
  1024.  
  1025. COMMAND ENTER
  1026. AtLocation 26 (* castle gate *)
  1027. RedirectTo NORTH
  1028. END_COMMAND
  1029.  
  1030. COMMAND NORTH
  1031. AtLocation 26 (* castle gate *)
  1032. CounterGT 2 0 (* Phil has Resist Cold *)
  1033. NOT CounterGT 3 0 (* Tark does not *)
  1034. PrintMessage 27 (* yo, fool, what about me? *)
  1035. DoneWithTurn
  1036. END_COMMAND
  1037.  
  1038. COMMAND NORTH
  1039. AtLocation 26 (* castle gate *)
  1040. NOT CounterGT 2 0 (* Phil does not have Resist Cold *)
  1041. PrintMessage 28 (* you die *)
  1042. ReDirectTo KILL_PLAYER
  1043. END_COMMAND (* death *)
  1044.  
  1045. COMMAND NORTH
  1046. AtLocation 26 (* castle gate *)
  1047. CounterGT 2 0 (* Phil has Resist Cold *)
  1048. CounterGT 3 0 (* Tark does too *)
  1049. PrintMessage 29 (* pass out -- Tark takes you through *)
  1050. GoToRoom 52 (* Have to hide out in East Guard Room to conjure Heal *)
  1051. DoneWithTurn
  1052. END_COMMAND
  1053.  
  1054.  
  1055. (*** Entering the room with the guards kill you. ***)
  1056.  
  1057. COMMAND WEST
  1058. AtLocation 50  (* Entrance Hall --> West Guard Room *)
  1059. PrintMessage 94  (* the guards kill you *)
  1060. ReDirectTo KILL_ALL
  1061. END_COMMAND  (* you die *)
  1062.  
  1063.  
  1064. (*** Commands to handle Cindy as a statue.  Cindy must be kissed by a
  1065.      good, male cleric to be freed leading to a love geas between her
  1066.      and the cleric.  Then she fades to next binding.  If he's examined
  1067.      the statues once, and passes by them again, we give him a hint if
  1068.      Cindy has since appeared there.                                ***)
  1069.  
  1070. COMMAND EXAMINE STATUES
  1071. AtLocation 55  (* in statue gallery *)
  1072. FlagON 103  (* Cindy is a statue *)
  1073. PrintMessage 30 (* you find cindy statue *)
  1074. PutInCurrentRoom 245  (* Put Cindy statue here *)
  1075. TurnFlagOFF 104  (* nothing out-of-place here anymore *)
  1076. DoneWithTurn  (* skip normal description *)
  1077. END_COMMAND
  1078.  
  1079. COMMAND EXAMINE STATUES
  1080. AtLocation 55  (* in statue gallery *)
  1081. FlagOFF 103  (* Cindy is not a statue *)
  1082. TurnFlagON 104  (* statues examined before Cindy was here *)
  1083. END_COMMAND  (* go on to normal description *)
  1084.  
  1085. COMMAND ANY
  1086. AtLocation 55  (* in statue gallery *)
  1087. FlagON 104   (* statues examined before Cindy was here *)
  1088. FlagON 103   (* Cindy is a statue *)
  1089. PrintMessage 40  (* something is odd here *)
  1090. END_COMMAND
  1091.  
  1092. COMMAND ANYBODY, KISS CINDY
  1093. AtLocation 55  (* Statue Gallery *)
  1094. RedirectTo ANYBODY, KISS STATUE
  1095. END_COMMAND
  1096.  
  1097. COMMAND ANYBODY, KISS STATUE
  1098. AtLocation 55  (* Statue Gallery *)
  1099. FlagON 103  (* Cindy is a statue *)
  1100. NAMEIsNumber 300  (* TARK, KISS STATUE *)
  1101. FlagOn 105  (* Tark is male *)
  1102. PrintMessage 31  (* Cindy freed *) 
  1103. Destroy 245  (* remove Cindy statue *)
  1104. TurnFlagOFF 103  (* Cindy no longer a statue *)
  1105. SendToRoom 254 91  (* Put Cindy-sword in black god room *)
  1106. PlusScore 10  (* worth ten points *)
  1107. DoneWithTurn
  1108. END_COMMAND 
  1109.  
  1110.  
  1111. COMMAND ANYBODY, KISS STATUE
  1112. AtLocation 55  (* Statue Gallery *)
  1113. FlagON 103  (* Cindy is a statue *)
  1114. FlagOFF 105  (* Tark is male *)
  1115. PrintMessage 32 (* no apparent effect *)
  1116. DoneWithTurn
  1117. END_COMMAND 
  1118.  
  1119. COMMAND KISS CINDY
  1120. AtLocation 55  (* Statue Gallery *)
  1121. ReDirectTo KISS STATUE
  1122. END_COMMAND
  1123.  
  1124. COMMAND KISS CINDY
  1125. Present 310  (* freed Cindy is here *)
  1126. PrintMessage 108  (* you do! *)
  1127. DoneWithTurn
  1128. END_COMMAND
  1129.  
  1130. COMMAND KISS STATUE
  1131. AtLocation 55  (* Statue Gallery *)
  1132. FlagON 103  (* Cindy is a statue *)
  1133. PrintMessage 33  (* no apparent effect *)   
  1134. DoneWithTurn
  1135. END_COMMAND 
  1136.  
  1137.  
  1138. (*** Commands to handle Cindy as a picture.  The correct stud on the
  1139.      frame must be pressed to release her.  Then she fades to next binding.
  1140.      If he's examined the pictures once, and passes by them again, we give
  1141.      him a hint if Cindy has since appeared there.                      ***)
  1142.  
  1143.  
  1144. COMMAND EXAMINE PAINTING
  1145. ReDirectTo EXAMINE PAINTINGS
  1146. END_COMMAND
  1147.  
  1148. COMMAND EXAMINE PAINTINGS
  1149. Present 246  (* The paintings are here. *)
  1150. FlagOFF 101  (* Cindy is not a picture. *)
  1151. PrintMessage 34  (* paintings, no Cindy *)
  1152. TurnFlagON 102  (* picture examined before Cindy discovered *)
  1153. DoneWithTurn
  1154. END_COMMAND
  1155.  
  1156. COMMAND EXAMINE PAINTINGS
  1157. Present 246  (* The paintings are here. *)
  1158. FlagON 101  (* Cindy is a picture. *)
  1159. PrintMessage 34  (* paintings ... *)
  1160. PrintMessage 35  (* ... and Cindy *)
  1161. PutInCurrentRoom 247  (* put Cindy painting here *)
  1162. TurnFlagOFF 102  (* nothing out-of-place here anymore *)
  1163. DoneWithTurn
  1164. END_COMMAND
  1165.  
  1166. COMMAND ANY
  1167. Present 246  (* The paintings are here. *)
  1168. FlagON 102   (* pictures examined before Cindy was here *)
  1169. FlagON 101   (* Cindy is a picture. *)
  1170. PrintMessage 39
  1171. END_COMMAND
  1172.  
  1173. COMMAND PRESS STUD
  1174. Present 246  (* The paintings are here *)
  1175. FlagON 101  (* Cindy is a painting *)
  1176. AskQuestion 1  (* which stud? *)
  1177. TurnFlagON 255 (* temporary flag to test correctness of answer *)
  1178. AnswerIsCorrect (* he pushed the correct stud *)
  1179. TurnFlagOFF 255 (* turn flag off 'cause answer correct *)
  1180. PrintMessage 36  (* you free Cindy *)
  1181. Destroy 247  (* get rid of Cindy painting *)
  1182. TurnFlagOFF 101  (* Cindy no longer a painting *)
  1183. TurnFlagON 103  (* Cindy is now a statue *)
  1184. PlusScore 10  (* worth ten points *)
  1185. DoneWithTurn
  1186. END_COMMAND
  1187.  
  1188. COMMAND PRESS STUD
  1189. FlagON 255  (* He pushed the wrong stud on Cindy painting *)
  1190. TurnFlagOFF 255 (* done with temp. flag *)
  1191. PrintMessage 37  (* a trap... you die *)
  1192. ReDirectTo KILL_PLAYER
  1193. END_COMMAND (* death *)
  1194.  
  1195. COMMAND PRESS STUD
  1196. Present 246  (* The paintings are here *)
  1197. FlagOFF 101  (* Cindy is not a painting *)
  1198. PrintMessage 38  (* nothing happens *)
  1199. DoneWithTurn
  1200. END_COMMAND
  1201.  
  1202.  
  1203. (*** Commands to handle sex-change door which Tark must enter before her
  1204.      kiss can release the Cindy-statue.                               ***)
  1205.  
  1206. COMMAND ANYBODY, ENTER DOOR
  1207. AtLocation 82 (* sex-change room *)
  1208. ReDirectTo ANYBODY, ENTER
  1209. END_COMMAND
  1210.  
  1211. COMMAND ANYBODY, ENTER
  1212. AtLocation 82 (* sex-change room *)
  1213. NAMEIsNumber 300  (* Tark, ... *)
  1214. Present 300 (* Tark is here *)
  1215. FlagOFF 105 (* Tark is still female *)
  1216. PrintMessage 41 (* Tark becomes male *)
  1217. TurnFlagON 105 (* Tark is now male *)
  1218. DoneWithTurn
  1219. END_COMMAND
  1220.  
  1221. COMMAND ANYBODY, ENTER
  1222. AtLocation 82 (* sex-change room *)
  1223. NAMEIsNumber 300  (* Tark, ... *)
  1224. FlagON 105 (* Tark is already male *)
  1225. PrintMessage 43 (* nothing happens *)
  1226. DoneWithTurn
  1227. END_COMMAND
  1228.  
  1229. COMMAND ENTER DOOR
  1230. AtLocation 82  (* sex-change room *)
  1231. ReDirectTo ENTER
  1232. END_COMMAND
  1233.  
  1234. COMMAND USE DOOR
  1235. ReDirectTo ENTER DOOR
  1236. END_COMMAND
  1237.  
  1238. COMMAND ENTER
  1239. AtLocation 82 (* sex-change room *)
  1240. FlagOFF 106 (* Phil is still male *)
  1241. PrintMessage 42 (* Phil becomes female *)
  1242. TurnFlagON 106 (* Phil is now female *)
  1243. DoneWithTurn
  1244. END_COMMAND
  1245.  
  1246. COMMAND ENTER
  1247. AtLocation 82  (* in sex-change room *)
  1248. FlagON 106  (* Phil is already female *)
  1249. PrintMessage 43 (* nothing happens *)
  1250. DoneWithTurn
  1251. END_COMMAND
  1252.  
  1253. (*** Eating various things: paisley Cake, Skullcap ***)
  1254.  
  1255. COMMAND EAT PAISLEY CAKE
  1256. NOUNPresent  (* it's here *)
  1257. Present 310  (* Cindy is here *)
  1258. PrintMessage 143  (* you go crazy and make it with Cindy *)
  1259. END_COMMAND
  1260.  
  1261. COMMAND EAT PAISLEY CAKE
  1262. NOUNPresent  (* it's here *)
  1263. Present 300  (* Tark is here *)
  1264. PrintMessage 44  (* you go crazy and make it with Tark *)
  1265. END_COMMAND
  1266.  
  1267. COMMAND EAT PAISLEY CAKE
  1268. NOUNPresent  (* it's here *)
  1269. NOT Present 300  (* Tark is not here *)
  1270. NOT Present 110 (* Cindy is not here *)
  1271. PrintMessage 144  (* you go crazy *)
  1272. RedirectTo KILL_PLAYER
  1273. END_COMMAND
  1274.  
  1275. COMMAND EAT PAISLEY CAKE
  1276. NOUNPresent 
  1277. DestroyNOUN
  1278. AtLocationGT 50 (*inside castle*) 
  1279. PrintMessage 145 (* you die *)
  1280. RedirectTo KILL_ALL
  1281. END_COMMAND
  1282.  
  1283. COMMAND EAT PAISLEY CAKE
  1284. DoneWithTurn  (* Phil wasn't killed above *)
  1285. END_COMMAND
  1286.  
  1287. COMMAND EAT SKULLCAP
  1288. NOUNPresent
  1289. DestroyNOUN
  1290. PrintMessage 146  (* strange ... *)
  1291. DoneWithTurn
  1292. END_COMMAND
  1293.  
  1294.  
  1295. (*** Picking up the Cindy sword -- if the first time, we must initialize
  1296.      the counter which measures her health.  She must kill things to be
  1297.      fed.                                                            ***)
  1298.  
  1299. COMMAND TAKE SWORD
  1300. InRoom 254  (* Cindy sword is here. *)
  1301. PrintMessage 52 (* hand thrills to touch *)
  1302. CounterEquals 7 0  (* Phil never picked up sword before *)
  1303. TurnCounterON 7  (* Start 'bleeding' counter *)
  1304. END_COMMAND  (* drop through to AGT to pick up sword *)
  1305.  
  1306. COMMAND TAKE ALL
  1307. InRoom 254  (* Cindy sword is here. *)
  1308. PrintMessage 52 (* hand thrills to touch *)
  1309. CounterEquals 7 0  (* Phil never picked up sword before *)
  1310. TurnCounterON 7  (* Start 'bleeding' counter *)
  1311. END_COMMAND (* fall through to take everything *)
  1312.  
  1313.  
  1314. (*** Mythril door in troll room is illusionary and must be disbelieved.
  1315.      Throwing things at it generates an illusion that they are destroyed
  1316.      when they actually fall into next room.                         ***)
  1317.  
  1318. COMMAND DISBELIEVE DOOR
  1319. AtLocation 83 (* troll room*)
  1320. PrintMessage 61  (* Door becomes translucent *)
  1321. ChangePassageway 2 84 (* Can now move south to stronghold *)
  1322. PutInCurrentRoom 255 (* translucent door *)
  1323. TurnFlagON 116  (* door now "open" *)
  1324. DoneWithTurn
  1325. END_COMMAND
  1326.  
  1327. COMMAND DISBELIEVE DOOR
  1328. PrintMessage 62  (* sorry, it's real *)
  1329. DoneWithTurn
  1330. END_COMMAND
  1331.  
  1332. COMMAND DISBELIEVE
  1333. NOUNIsNumber 0  (* no noun specified *)
  1334. PrintMessage 66  (* disbelieve what? *)
  1335. DoneWithTurn
  1336. END_COMMAND
  1337.  
  1338. COMMAND DISBELIEVE ANY
  1339. PrintMessage 62 (* sorry, it's real*)  
  1340. DoneWithTurn
  1341. END_COMMAND
  1342.  
  1343. COMMAND EXAMINE DOOR
  1344. Present 255  (* translucent door *)
  1345. DescribeThing 255  (* translucent door *)
  1346. DoneWithTurn
  1347. END_COMMAND
  1348.  
  1349. COMMAND THROW ANY AT DOOR
  1350. AtLocation 83  (* troll room *)
  1351. NOUNPresent
  1352. NOT NOUNIsCreature  (* can't throw Tark or troll lord *)
  1353. PrintMessage 72  (* it disappears in a flash *)
  1354. SendNOUNToRoom 91  (* but really falls into Outer Room *)
  1355. DoneWithTurn
  1356. END_COMMAND
  1357.  
  1358. COMMAND PICK LOCK
  1359. PrintMessage 98  (* you can't *)
  1360. DoneWithTurn
  1361. END_COMMAND
  1362.  
  1363.  
  1364. (*** Commands that deal with walking into anti-magic shell around
  1365.      stronghold.  Neither Cindy-sword nor the scroll can enter there.
  1366.      Anyone who has magically had their sex changed becomes a eunich. ***)
  1367.  
  1368. COMMAND SOUTH
  1369. AtLocation 84 (* Outer room -> Iron Door *)
  1370. IsCarrying 254 (* Cindy sword *)
  1371. PrintMessage 67 (* Cindy sword dies *)
  1372. GoToRoom 198 (* Despair*)
  1373. DoneWithTurn
  1374. END_COMMAND
  1375.  
  1376. COMMAND SOUTH
  1377. AtLocation 84  (* Outer room --> Iron door *)
  1378. FlagON 106  (* female Phil enters anti-magic shell *)
  1379. PrintMessage 89  (* ouch! *)
  1380. TurnFlagOFF 106  (* Phil is no longer female *)
  1381. TurnFlagON 109  (* he is now a eunich *)
  1382. END_COMMAND
  1383.  
  1384. COMMAND SOUTH
  1385. AtLocation 84  (* Outer room --> Iron door *)
  1386. FlagON 105  (* male Tark enters anti-magic shell *)
  1387. PrintMessage 90  (* ouch! for Tark *)
  1388. TurnFlagOFF 105  (* Tark is no longer male *)
  1389. TurnFlagON 110  (* she is now a eunich *)
  1390. END_COMMAND
  1391.  
  1392. COMMAND SOUTH
  1393. AtLocation 84  (* outer room --> iron door *)
  1394. IsCarrying 257  (* troll flesh *)
  1395. PrintMessage 91  (* hear a soft pop from possessions *)
  1396. SwapLocations 257 278  (* troll flesh --> dead troll flesh *)
  1397. END_COMMAND
  1398.  
  1399. COMMAND SOUTH
  1400. AtLocation 84  (* outer room --> iron door *)
  1401. IsCarrying 252  (* troll box *)
  1402. IsLocated 257 252  (* troll flesh is in troll box *)
  1403. PrintMessage 91  (* hear a soft pop from possessions *)
  1404. SwapLocations 257 278  (* troll flesh --> dead troll flesh *)
  1405. END_COMMAND
  1406.  
  1407. COMMAND NORTH
  1408. AtLocation 93  (* stronghold --> iron door *)
  1409. IsCarrying 259  (* emergency scroll enters anti-magic shell *)
  1410. PrintMessage 91  (* hear a soft pop from possessions *)
  1411. SwapLocations 259 261  (* scroll --> blank scroll *)
  1412. END_COMMAND
  1413.  
  1414.  
  1415. (*** To get through the stronghold door, the lock must be drilled out.
  1416.      Note: door is synonymous with lock.                             ***)
  1417.  
  1418. COMMAND DRILL DOOR
  1419. ReDirectTo DRILL LOCK
  1420. END_COMMAND
  1421.  
  1422. COMMAND DRILL LOCK
  1423. FlagON 115  (* drill bits are ruined *)
  1424. PrintMessage 142  (* sorry *)
  1425. DoneWithTurn
  1426. END_COMMAND
  1427.  
  1428. COMMAND DRILL LOCK
  1429. AtLocation 92 (* Iron Door *)
  1430. Present 213 (* power drill *)
  1431. PrintMessage 68
  1432. ChangePassageway 2 93 (* south door to Stronghold *)
  1433. ChangePassageway 11 93 (* or ENTER there *)
  1434. TurnFlagON 115  (* drill bits now ruined *)
  1435. TurnFlagON 117  (* door now "open" *)
  1436. DoneWithTurn
  1437. END_COMMAND
  1438.  
  1439. COMMAND DRILL LOCK
  1440. AtLocation 83 (* troll room *)
  1441. Present 213 (* power drill *)
  1442. PrintMessage 69  (* Drilling doesn't work *)
  1443. DoneWithTurn
  1444. END_COMMAND
  1445.  
  1446. REM  No longer taken as valid syntax:
  1447. REM
  1448. REM  COMMAND SHOOT GUN AT LOCK
  1449. REM  ReDirectTo SHOOT DOOR WITH GUN
  1450. REM  END_COMMAND
  1451.  
  1452. COMMAND SHOOT LOCK WITH GUN
  1453. ReDirectTo SHOOT DOOR WITH GUN
  1454. END_COMMAND
  1455.  
  1456. COMMAND SHOOT GUN AT DOOR
  1457. ReDirectTo SHOOT DOOR WITH GUN
  1458. END_COMMAND
  1459.  
  1460. COMMAND SHOOT DOOR WITH GUN
  1461. AtLocation 83 (* troll room *)
  1462. Present 213  (* gun is here *)
  1463. FlagOFF 107  (* bullet left in gun *)
  1464. PrintMessage 70  (* door not scratched *)
  1465. TurnFlagON 107  (* bullet gone now *)
  1466. DoneWithTurn
  1467. END_COMMAND
  1468.  
  1469. COMMAND SHOOT DOOR WITH GUN
  1470. AtLocation 92  (* iron door *)
  1471. Present 213  (* gun is here *)
  1472. FlagOFF 107  (* bullet left in gun *)
  1473. PrintMessage 71  (* door scratched but not opened *)
  1474. TurnFlagON 107  (* bullet gone now *)
  1475. DoneWithTurn
  1476. END_COMMAND
  1477.  
  1478. COMMAND SHOOT DOOR WITH GUN
  1479. Present 269  (* flesh lock *)
  1480. Present 213  (* gun is here *)
  1481. FlagOFF 107  (* bullet left in gun *)
  1482. PrintMessage 195  (* bullet passes through lock *)
  1483. TurnFlagON 107  (* bullet gone now *)
  1484. DoneWithTurn
  1485. END_COMMAND
  1486.  
  1487.  
  1488. (***  Using key in various situations with various synonyms  ***)
  1489.  
  1490. COMMAND OPEN LOCK WITH ANY
  1491. AtLocation 83  (* troll room *)
  1492. OR
  1493. AtLocation 92  (* iron door *)
  1494. OR
  1495. Present 269  (* flesh lock to tower room *)
  1496. ReDirectTo UNLOCK DOOR WITH $OBJECT$
  1497. END_COMMAND
  1498.  
  1499. COMMAND OPEN DOOR
  1500. AtLocation 83  (* troll room *)
  1501. FlagON 116  (* door to Outer Room disbelieved *)
  1502. PrintMessage 174  (* no substance to door *)
  1503. DoneWithTurn
  1504. END_COMMAND
  1505.  
  1506. COMMAND OPEN DOOR
  1507. AtLocation 92  (* iron door *)
  1508. FlagON 117  (* lock has been drilled *)
  1509. PrintMessage 175  (* door is already open *)
  1510. DoneWithTurn
  1511. END_COMMAND
  1512.  
  1513. COMMAND TURN KEY
  1514. ReDirectTo USE KEY
  1515. END_COMMAND
  1516.  
  1517. COMMAND USE KEY
  1518. AtLocation 83  (* troll room *)
  1519. OR
  1520. AtLocation 92  (* iron door *)
  1521. OR
  1522. Present 269  (* flesh lock to tower room *)
  1523. ReDirectTo UNLOCK DOOR WITH KEY
  1524. END_COMMAND
  1525.  
  1526. COMMAND USE KEY
  1527. NOUNPresent
  1528. Present 258  (* iron chest *)
  1529. UnLockIt 258  (* iron chest. note: redirecting to UNLOCK ... doesn't work *)
  1530. OpenIt 258  (* iron chest *)
  1531. PrintMessage 188  (* you open it *)
  1532. DoneWithTurn
  1533. END_COMMAND
  1534.  
  1535. COMMAND USE KEY
  1536. Present 200  (* dnd notebook *)
  1537. PrintMessage 189  (* sorry ... *)
  1538. DoneWithTurn
  1539. END_COMMAND
  1540.  
  1541. COMMAND EXAMINE LOCK
  1542. NOT Present 269  (* strange door not present [handled elsewhere] *)
  1543. PrintMessage 181  (* nothing new *)
  1544. DoneWithTurn
  1545. END_COMMAND
  1546.  
  1547.  
  1548. (*** Commands to handle taking the piece of troll flesh needed for the
  1549.      recipe.                                                       ***)
  1550.  
  1551. COMMAND TAKE FLESH
  1552. IsLocated 257 252  (* troll flesh in shiny box *)
  1553. PrintMessage 180  (* you already have some *)
  1554. DoneWithTurn
  1555. END_COMMAND
  1556.  
  1557. COMMAND TAKE FLESH
  1558. NOT InRoom 257 (* no single piece here *)
  1559. InRoom 256  (* but many fragments here *)
  1560. ReDirectTo TAKE FRAGMENTS
  1561. END_COMMAND
  1562.  
  1563. COMMAND TAKE FRAGMENTS
  1564. Present 256  (* There are frgaments here *)
  1565. PrintMessage 73  (* you can only take 1 *)
  1566. GetIt 257  (* pick up single fragment *)
  1567. DoneWithTurn
  1568. END_COMMAND
  1569.  
  1570. COMMAND TAKE ALL
  1571. Present 256 (* Fragments here *)
  1572. PrintMessage 73  (* you can only take 1 *)
  1573. PutInCurrentRoom 257  (* to pick up single fragment *)
  1574. END_COMMAND  (* fall through to get everything *)
  1575.  
  1576. COMMAND PUT FLESH IN BOX
  1577. NOT Present 257  (* troll flesh *)
  1578. Present 256  (* Fragments here *)
  1579. GetIt 257  (* troll flesh *)
  1580. PrintMessage 179  (* you take some of the flesh *)
  1581. END_COMMAND  (* now that flesh is taken, drop to normal AGT processing *)
  1582.  
  1583.  
  1584. (*** Commands related to the casting of Emergency Evasion from the
  1585.      scroll.  You need the Read Magic spectacles to do it.      ***)
  1586.  
  1587. COMMAND WEAR SPECTACLES 
  1588. NOUNPresent
  1589. PrintMessage 77  (* see nothing unusual *)
  1590. WearNOUN
  1591. DoneWithTurn
  1592. END_COMMAND
  1593.  
  1594. COMMAND READ SCROLL
  1595. NOUNPresent
  1596. IsWearing 260  (* you are wearing the spectacles *)
  1597. PrintMessage 78  (* you can read the scroll; want to stop? *)
  1598. TurnFlagON 255  (* temp. flag to test correctness of answer *)
  1599. PromptForYES  (* continue if YES *)
  1600. TurnFlagOFF 255  (* done with temp. flag *)
  1601. PrintMessage 79  (* you manage to stop *)
  1602. DoneWithTurn
  1603. END_COMMAND
  1604.  
  1605. COMMAND READ SCROLL
  1606. FlagON 255  (* he didn't want to stop *)
  1607. TurnFlagOFF 255  (* done with temp. flag *)
  1608. PrintMessage 80  (* blue tatoos appear *)
  1609. DestroyNOUN      (* scroll burns up *)
  1610. TurnFlagON 108  (* Phil now has tatoos *)
  1611. DoneWithTurn
  1612. END_COMMAND
  1613.  
  1614.  
  1615. (*** Miscellaneous castle commands ***)
  1616.  
  1617. COMMAND EXAMINE SPICE RACK
  1618. NOUNPresent
  1619. SendToRoom 266 251  (* Jurbura --> spice rack *)
  1620. SendToRoom 267 251  (* Muirpuma --> spice rack *)
  1621. SendToRoom 268 251  (* Skullcap --> spice rack *)
  1622. END_COMMAND  (* drop through to normal examine *)
  1623.  
  1624. COMMAND ANY
  1625. AtLocation 90  (* study *)
  1626. Present 300  (* Tark *)
  1627. NOT Present 312  (* undead demoness *)
  1628. NOT Present 313  (* ... in either form *)
  1629. FlagOFF 11  (* Tark has not examined globe yet *)
  1630. PrintMessage 163  (* Tark examines world globe *)
  1631. TurnFlagON 11  (* don't print this again *)
  1632. END_COMMAND
  1633.  
  1634. (*** commands to handle appearance of weird door to Tower Room.  ***)
  1635.  
  1636. COMMAND READ BLACK BOOK
  1637. NOUNPresent
  1638. TurnFlagON 111  (* note that book read at least once *)
  1639. END_COMMAND  (* go on to normal processing *)
  1640.  
  1641. COMMAND EXAMINE LOCK
  1642. Present 269  (* strange door is here *)
  1643. ReDirectTo EXAMINE DOOR
  1644. END_COMMAND
  1645.  
  1646. COMMAND EXAMINE DOOR
  1647. Present 269  (* strange door is here *)
  1648. FlagON 111  (* black book has been read before *)
  1649. PrintMessage 134  (* remember reference in black book *)
  1650. TurnFlagON 112  (* he's been told about the reference *)
  1651. DoneWithTurn  (* Avoid default examine *)
  1652. END_COMMAND
  1653.  
  1654. COMMAND EXAMINE DOOR
  1655. Present 269  (* strange door is here *)
  1656. DescribeThing 269  (* strange door and flesh lock *)
  1657. DoneWithTurn
  1658. END_COMMAND
  1659.  
  1660. COMMAND READ BLACK BOOK
  1661. NOUNPresent
  1662. FlagON 112  (* been told about reference to flesh lock *)
  1663. PrintMessage 135  (* explain about flesh lock *)
  1664. WaitForReturn  (* pause before printing normal text *)
  1665. TurnFlagOFF 112  (* OK, once is enough *)
  1666. END_COMMAND  (* go on to normal text *)
  1667.  
  1668. COMMAND ANYBODY, OPEN DOOR
  1669. NAMEIsNumber 300  (* TARK, ... *)
  1670. Present 300  (* Tark is here *)
  1671. Present 269  (* "Wizard Lock" door is here *)
  1672. PrintMessage 138  (* she can't *)
  1673. DoneWithTurn
  1674. END_COMMAND
  1675.  
  1676. COMMAND OPEN DOOR
  1677. AtLocation 102  (* tower landing --> tower room *)
  1678. ReDirectTo ENTER
  1679. END_COMMAND
  1680.  
  1681. COMMAND NORTH
  1682. AtLocation 102  (* tower landing --> tower room *)
  1683. ReDirectTo ENTER
  1684. END_COMMAND
  1685.  
  1686. COMMAND ENTER
  1687. AtLocation 102  (* tower landing --> tower room *)
  1688. Present 269  (* stangely locked door is here *)
  1689. PrintMessage 99  (* Tower Room lock disolves / description of Naron Blooder *)
  1690. Destroy 269  (* Get rid of strange lock message on tower landing *)
  1691. END_COMMAND  (* pass to next command *)
  1692.  
  1693. COMMAND ENTER
  1694. AtLocation 102  (* tower landing --> tower hall *)
  1695. PrintMessage 139  (* description of Naron Blooder *)
  1696. GoToRoom 103  (* ENTER tower room *)
  1697. DoneWithTurn
  1698. END_COMMAND
  1699.  
  1700. (*** Commands for getting Cindy's hair. ***)
  1701.  
  1702. COMMAND CUT HAIR
  1703. ReDirectTo TAKE HAIR
  1704. END_COMMAND
  1705.  
  1706. COMMAND TAKE HAIR
  1707. Present 310  (* freed Cindy is here *)
  1708. PrintMessage 106  (* so you take it *)
  1709. GetIt 263  (* now carrying the cindy hair *)
  1710. DoneWithTurn
  1711. END_COMMAND
  1712.  
  1713. COMMAND TAKE HAIR
  1714. Present 305  (* mud-house trapped Cindy is here *)
  1715. PrintMessage 107  (* sorry ... *)
  1716. DoneWithTurn
  1717. END_COMMAND
  1718.  
  1719.  
  1720. (*** Commands for getting Tears of Sadness for recipe ***)
  1721.  
  1722. COMMAND TAKE TEARS
  1723. AtLocation 74  (* storage room *)
  1724. PrintMessage 109 (* tears dry up *)
  1725. DoneWithTurn
  1726. END_COMMAND
  1727.  
  1728. COMMAND TAKE TEARS IN ANY
  1729. RedirectTo PUT TEARS IN $OBJECT$
  1730. END_COMMAND
  1731.  
  1732. COMMAND PUT TEARS IN VIAL
  1733. Present 265 (* perfume vial *)
  1734. NOT IsOpen 265  (* perfume vial *)
  1735. PrintMessage 190  (* need to open vial first *)
  1736. DoneWithTurn
  1737. END_COMMAND
  1738.  
  1739. COMMAND PUT TEARS IN VIAL
  1740. NOT Present 265  (* perfume vial *)
  1741. PrintMessage 198  (* what vial? *)
  1742. DoneWithTurn
  1743. END_COMMAND
  1744.  
  1745. COMMAND PUT TEARS IN VIAL
  1746. AtLocation 74  (* storage room *)
  1747. Present 265 (* perfume vial *)
  1748. PrintMessage 110 (* you put tears in vial *)
  1749. SendToRoom 264 265 (* put tears in vial *)
  1750. DoneWithTurn
  1751. END_COMMAND
  1752.  
  1753. COMMAND PUT TEARS IN ANY
  1754. AtLocation 74  (* storahe room *)
  1755. NOT ObjectIsNumber 265  (* perfume vial *)
  1756. PrintMessage 191  (* container not appropriate *)
  1757. DoneWithTurn
  1758. END_COMMAND
  1759.  
  1760. (*** Commands for obtaining holy water ***)
  1761.  
  1762. COMMAND PUT WATER IN GLASS
  1763. RedirectTo TAKE WATER
  1764. END_COMMAND
  1765.  
  1766. COMMAND PUT WATER IN ANY
  1767. NOT ObjectIsNumber 220  (* blender *)
  1768. PrintMessage 197  (* container not appropriate *)
  1769. DoneWithTurn
  1770. END_COMMAND
  1771.  
  1772. COMMAND TAKE WATER
  1773. AtLocation 3  (* kitchen *)
  1774. OR
  1775. AtLocation 8 (* master bathroom *)
  1776. OR 
  1777. AtLocation 14 (* guest bathroom *)
  1778. OR
  1779. AtLocation 53 (* courtyard *)
  1780. Present 215 (* drinking glass *)
  1781. PrintMessage 111 (* you put water in glass *)
  1782. SendToRoom 216 215 (* water in glass *) 
  1783. DoneWithTurn
  1784. END_COMMAND
  1785.  
  1786. COMMAND TAKE WATER
  1787. Present 208  (* burst pipe and water in garage *)
  1788. Present 215 (* drinking glass *)
  1789. PrintMessage 111 (* you put water in glass *)
  1790. SendToRoom 216 215 (* water in glass *) 
  1791. DoneWithTurn
  1792. END_COMMAND
  1793.  
  1794. COMMAND TAKE WATER
  1795. AtLocation 3  (* kitchen *)
  1796. OR
  1797. AtLocation 8 (* master bathroom *)
  1798. OR 
  1799. AtLocation 14 (* guest bathroom *)
  1800. OR
  1801. AtLocation 53 (* courtyard *)
  1802. NOT Present 215 (* drinking glass *)
  1803. PrintMessage 112 (* you need something to put water in: glass *)
  1804. DoneWithTurn
  1805. END_COMMAND
  1806.  
  1807. COMMAND ANYBODY, MAKE HOLY WATER
  1808. NAMEIsNumber 300  (* TARK, ... *)
  1809. Present 300  (* Tark is here *)
  1810. Present 216  (* water is here *)
  1811. Present 204  (* gold cross *)
  1812. PrintMessage 113  (* Tark makes holy water *)
  1813. SwapLocations 216 217 (* water --> holy water *)
  1814. DoneWithTurn
  1815. END_COMMAND
  1816.  
  1817. COMMAND ANYBODY, MAKE HOLY WATER
  1818. NAMEIsNumber 300  (* TARK, ... *)
  1819. Present 300  (* Tark is here *)
  1820. NOT Present 216  (* no water here *)
  1821. PrintMessage 114  (* Tark needs water *)
  1822. DoneWithTurn
  1823. END_COMMAND
  1824.  
  1825. COMMAND ANYBODY, MAKE HOLY WATER
  1826. NAMEIsNumber 300  (* TARK, ... *)
  1827. Present 300  (* Tark is here *)
  1828. NOT Present 204  (* gold cross *)
  1829. PrintMessage 115  (* Tark needs cross *)
  1830. DoneWithTurn
  1831. END_COMMAND
  1832.  
  1833. COMMAND THROW WATER AT ELEMENTAL
  1834. Present 302  (* fire elemental here *)
  1835. PrintMessage 116  (* poof!  elemental still there *)
  1836. Destroy 216  (* make sure water is gone -- in either form *)
  1837. Destroy 217
  1838. DoneWithTurn
  1839. END_COMMAND
  1840.  
  1841.  
  1842. (*** Commands related to blender and grinding recipe ingredients. ***)
  1843.  
  1844. COMMAND BLEND
  1845. ReDirectTo TURN ON BLENDER
  1846. END_COMMAND
  1847.  
  1848. COMMAND USE BLENDER
  1849. ReDirectTo TURN ON BLENDER
  1850. END_COMMAND
  1851.  
  1852. COMMAND MIX WITH BLENDER
  1853. ReDirectTo TURN ON BLENDER
  1854. END_COMMAND
  1855.  
  1856. COMMAND MIX
  1857. PrintMessage 178  (* you need to use some tool *)
  1858. DoneWithTurn
  1859. END_COMMAND
  1860.  
  1861. COMMAND TURN ON BLENDER
  1862. NOT Present 220  (* blender bot here *)
  1863. QuitAllCmds  (* so ignore command *)
  1864. END_COMMAND
  1865.  
  1866. COMMAND TURN ON BLENDER
  1867. NOT Present 218  (* no electrical outlet here *)
  1868. PrintMessage 121  (* can't find an outlet *)
  1869. DoneWithTurn
  1870. END_COMMAND
  1871.  
  1872. COMMAND TURN ON BLENDER
  1873. NOT SomethingInside 220  (* blender is empty *)
  1874. PrintMessage 117  (* wrrrr... *)
  1875. DoneWithTurn
  1876. END_COMMAND
  1877.  
  1878. COMMAND TURN ON BLENDER
  1879. IsLocated 280 220  (* purple mush in blender *)
  1880. Destroy 280  (* we'll replace it later *)
  1881. NOT SomethingInside 220  (* that was all *)
  1882. SendToRoom 280 220  (* put purple mush back *)
  1883. TurnCounterON 9  (* and restart troll regeneration from beginning *)
  1884. PrintMessage 129  (* troll flesh chunks cut up again *)
  1885. DoneWithTurn
  1886. END_COMMAND
  1887.  
  1888. COMMAND TURN ON BLENDER
  1889. IsLocated 281 220  (* some mush in blender *)
  1890. Destroy 281  (* we'll replace it later *)
  1891. NOT SomethingInside 220  (* that was all *)
  1892. SendToRoom 281 220  (* put some mush back *)
  1893. TurnCounterON 9  (* and restart troll regeneration from beginning *)
  1894. PrintMessage 129  (* troll flesh chunks cut up again *)
  1895. DoneWithTurn
  1896. END_COMMAND
  1897.  
  1898. (* now something is in the blender *)
  1899.  
  1900. COMMAND TURN ON BLENDER
  1901. TurnFlagOFF 5  (* no wrong items detected so far *)
  1902. SetVariableTo 1 0  (* so far, no recipe items found in blender *)
  1903. END_COMMAND
  1904.  
  1905. COMMAND TURN ON BLENDER
  1906. IsLocated 217 220  (* holy water in blender *)
  1907. Destroy 217  (* gets ground up *)
  1908. AddToVariable 1 1  (* increment # recipe items found *)
  1909. END_COMMAND
  1910.  
  1911. COMMAND TURN ON BLENDER
  1912. IsLocated 237 220  (* twinkie in blender *)
  1913. Destroy 237  (* gets ground up *)
  1914. AddToVariable 1 1  (* increment # recipe items found *)
  1915. END_COMMAND
  1916.  
  1917. (* !!! Fix up troll regeneration !!! *)
  1918. COMMAND TURN ON BLENDER
  1919. IsLocated 257 220  (* troll flesh in blender *)
  1920. Destroy 257  (* gets ground up *)
  1921. TurnCounterON 9  (* restart regeneration *)
  1922. AddToVariable 1 1  (* increment # recipe items found *)
  1923. END_COMMAND
  1924.  
  1925. COMMAND TURN ON BLENDER
  1926. IsLocated 262 220  (* black heart in blender *)
  1927. Destroy 262  (* gets ground up *)
  1928. AddToVariable 1 1  (* increment # recipe items found *)
  1929. END_COMMAND
  1930.  
  1931. COMMAND TURN ON BLENDER
  1932. IsLocated 263 220  (* cindy hair in blender *)
  1933. Destroy 263  (* gets ground up *)
  1934. AddToVariable 1 1  (* increment # recipe items found *)
  1935. END_COMMAND
  1936.  
  1937. COMMAND TURN ON BLENDER
  1938. IsLocated 264 220  (* Tears of Sadness in blender *)
  1939. Destroy 264  (* gets ground up *)
  1940. AddToVariable 1 1  (* increment # recipe items found *)
  1941. END_COMMAND
  1942.  
  1943. COMMAND TURN ON BLENDER
  1944. IsLocated 266 220  (* Jurbura in blender *)
  1945. Destroy 266  (* gets ground up *)
  1946. AddToVariable 1 1  (* increment # recipe items found *)
  1947. END_COMMAND
  1948.  
  1949. COMMAND TURN ON BLENDER
  1950. IsLocated 216 220  (* wrong: normal water in blender *)
  1951. Destroy 216  (* gets ground up *)
  1952. TurnFlagON 5  (* recipe screwed up *)
  1953. END_COMMAND
  1954.  
  1955. COMMAND TURN ON BLENDER
  1956. IsLocated 267 220  (* wrong: MuiraPuma in blender *)
  1957. Destroy 267  (* gets ground up *)
  1958. TurnFlagON 5  (* recipe screwed up *)
  1959. END_COMMAND
  1960.  
  1961. COMMAND TURN ON BLENDER
  1962. IsLocated 268 220  (* wrong: skullcap in blender *)
  1963. Destroy 268  (* gets ground up *)
  1964. TurnFlagON 5  (* recipe screwed up *)
  1965. END_COMMAND
  1966.  
  1967. COMMAND TURN ON BLENDER
  1968. IsLocated 250 220  (* wrong: paisley cake in blender *)
  1969. Destroy 250  (* gets ground up *)
  1970. TurnFlagON 5  (* recipe screwed up *)
  1971. END_COMMAND
  1972.  
  1973. COMMAND TURN ON BLENDER
  1974. IsLocated 276 220  (* wrong: chocolate cheesecake in blender *)
  1975. Destroy 276  (* gets ground up *)
  1976. TurnFlagON 5  (* recipe screwed up *)
  1977. END_COMMAND
  1978.  
  1979. COMMAND TURN ON BLENDER
  1980. IsLocated 277 220  (* wrong: apple crisp in blender *)
  1981. Destroy 277  (* gets ground up *)
  1982. TurnFlagON 5  (* recipe screwed up *)
  1983. END_COMMAND
  1984.  
  1985. COMMAND TURN ON BLENDER
  1986. SomethingInside 220  (* something still left in blender *)
  1987. PrintMessage 120  (* it clogs/breaks blender *)
  1988. SendToRoom 281 220  (* put unmagical mush in blender *)
  1989. DoneWithTurn
  1990. END_COMMAND
  1991.  
  1992. COMMAND TURN ON BLENDER
  1993. VariableEquals 1 7  (* all recipe items were present *)
  1994. FlagOFF 5  (* and no wrong items included *)
  1995. SendToRoom 280 220  (* put purple mush in blender *)
  1996. PrintMessage 118  (* you make foaming purple mush *)
  1997. DoneWithTurn
  1998. END_COMMAND
  1999.  
  2000. COMMAND TURN ON BLENDER
  2001. PrintMessage 119  (* you make some mush *)
  2002. SendToRoom 281 220  (* put mush in blender *)
  2003. DoneWithTurn
  2004. END_COMMAND
  2005.  
  2006.  
  2007. (*** Commands for handling extension cord, which must be plugged into
  2008.      outlet and dropped in the blended mus ho substitute for the
  2009.      Shocking Grasp in the recipe.                                 ***)
  2010.  
  2011. COMMAND PLUG ANY IN EXTENSION CORD
  2012. NOUNIsNumber 0  (* commands was "PLUG IN EXTENSION CORD" *)
  2013. PrintMessage 199  (* plug extension cord into what? *)
  2014. DoneWithTurn
  2015. END_COMMAND
  2016.  
  2017. REM
  2018. REM  A bug I don't understand redirects PLUG IN EXTENSION CORD to PLUG
  2019. REM  EXTENSION CORD into EXTENSION CORD.  This is the kluge fix.
  2020. REM
  2021. COMMAND PLUG ANY IN EXTENSION CORD
  2022. NOUNIsNumber 219  (* extension cord *)
  2023. PrintMessage 199  (* plug extension cord into what? *)
  2024. DoneWithTurn
  2025. END_COMMAND
  2026.  
  2027. COMMAND PLUG ANY
  2028. NOUNPresent
  2029. ObjectIsNumber 0  (* No object specified *)
  2030. PrintMessage 122
  2031. DoneWithTurn
  2032. END_COMMAND
  2033.  
  2034. COMMAND PUT EXTENSION CORD INTO OUTLET
  2035. ReDirectTo PLUG EXTENSION CORD INTO OUTLET
  2036. END_COMMAND
  2037.  
  2038. COMMAND PLUG EXTENSION CORD INTO OUTLET
  2039. Present 219  (* extension cord *)
  2040. Present 218  (* outlet present *)
  2041. IsLocated 219 220  (* cord in blender *)
  2042. OR
  2043. IsLocated 219 280  (* or in purple mush *)
  2044. OR
  2045. IsLocated 219 281  (* or in some mush *)
  2046. SendToRoom 219 218  (* put the cord in the outlet *)
  2047. ReDirectTo PUT EXTENSION CORD INTO MUSH
  2048. END_COMMAND  (* handle the shock *)
  2049.  
  2050. COMMAND PLUG EXTENSION CORD INTO OUTLET
  2051. Present 219  (* extension cord *)
  2052. Present 218  (* outlet present *)
  2053. PrintMessage 123  (* ok *)
  2054. SendToRoom 219 218  (* put the cord in the outlet *)
  2055. DoneWithTurn
  2056. END_COMMAND
  2057.  
  2058. COMMAND PLUG ANY INTO EXTENSION CORD
  2059. ReDirectTo PLUG EXTENSION CORD INTO $NOUN$
  2060. END_COMMAND
  2061.  
  2062. COMMAND PLUG EXTENSION CORD INTO BLENDER
  2063. Present 219  (* extension cord *)
  2064. Present 220  (* blender *)
  2065. PrintMessage 123  (* ok *)
  2066. TurnFlagOFF 6  (* extension cord not plugged into drill *)
  2067. DoneWithTurn
  2068. END_COMMAND
  2069.  
  2070. COMMAND PLUG EXTENSION CORD INTO DRILL
  2071. Present 219  (* extension cord *)
  2072. Present 213  (* power drill *)
  2073. PrintMessage 124  (* sorry, you can't *)
  2074. DoneWithTurn
  2075. END_COMMAND
  2076.  
  2077. COMMAND PLUG EXTENSION CORD INTO ANY
  2078. Present 219  (* extension cord *)
  2079. PrintMessage 125  (* you can't plug it into that *)
  2080. DoneWithTurn
  2081. END_COMMAND
  2082.  
  2083. COMMAND UNPLUG EXTENSION CORD
  2084. NOUNPresent
  2085. PrintMessage 126  (* ok, unplugged from everything *)
  2086. PutNOUNInCurrentRoom  (* make sure it's no longer in outlet *)
  2087. DoneWithTurn
  2088. END_COMMAND
  2089.  
  2090. COMMAND DROP EXTENSION CORD IN ANY
  2091. ReDirectTo PUT EXTENSION CORD IN ANY
  2092. END_COMMAND
  2093.  
  2094. COMMAND PUT EXTENSION CORD IN BLENDER
  2095. IsLocated 280 220  (* purple mush in blender *)
  2096. ReDirectTo PUT EXTENSION CORD IN PURPLE MUSH
  2097. END_COMMAND
  2098.  
  2099. COMMAND PUT EXTENSION CORD IN BLENDER
  2100. IsLocated 281 220  (* some mush in blender *)
  2101. ReDirectTo PUT EXTENSION CORD IN SOME MUSH
  2102. END_COMMAND
  2103.  
  2104. COMMAND PUT EXTENSION CORD IN SOME MUSH
  2105. Present 219  (* extension cord *)
  2106. Present 281  (* some mush *)
  2107. IsLocated 219 218  (* cord in outlet *)
  2108. PrintMessage 128  (* flash! -- no good *)
  2109. DoneWithTurn
  2110. END_COMMAND
  2111.  
  2112. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2113. NOT Present 219  (* extension cord *)
  2114. OR
  2115. NOT Present 280  (* purple mush *)
  2116. OR
  2117. NOT IsLocated 219 218  (* cord not in outlet *)
  2118. QuitAllCmds  (* command not appropriate or nothing special happens *)
  2119. END_COMMAND
  2120.  
  2121. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2122. IsLocated 232 220  (* credit cards in blender *)
  2123. IsLocated 233 220  (* floppy disk in blender *)
  2124. IsLocated 234 220  (* bank list in blender *)
  2125. Destroy 232  (* credit cards *)
  2126. Destroy 233  (* floppy disk *)
  2127. Destroy 235  (* bank list *)
  2128. TurnFlagON 7  (* everything here *)
  2129. END_COMMAND
  2130.  
  2131.  
  2132. (* Due to apparent bug (?), following command must be split up. *)
  2133. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2134. IsLocated 231 220 (* tagged pouch in blender or in purple mush *)
  2135. OR
  2136. IsLocated 231 280
  2137. TurnFlagON 255  (* use temp. flag for continuation *)
  2138. END_COMMAND
  2139.  
  2140. (* ... continued ... *)
  2141. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2142. FlagON 255  (* continued from last command *)
  2143. TurnFlagOFF 255  (* done with temp. flag *)
  2144. IsLocated 232 220  (* credit cards in blender or pouch or mush *)
  2145. OR
  2146. IsLocated 232 231
  2147. OR
  2148. IsLocated 232 280
  2149. TurnFlagON 255  (* use temp. flag for continuation *)
  2150. END_COMMAND
  2151.  
  2152. (* ... continued ... *)
  2153. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2154. FlagON 255  (* continued from last command *)
  2155. TurnFlagOFF 255  (* done with temp. flag *)
  2156. IsLocated 233 220  (* floppy disk in blender or pouch or mush *)
  2157. OR
  2158. IsLocated 233 231
  2159. OR
  2160. IsLocated 233 280
  2161. TurnFlagON 255  (* use temp. flag for continuation *)
  2162. END_COMMAND
  2163.  
  2164. (* ... continued ... *)
  2165. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2166. FlagON 255  (* continued from last command *)
  2167. TurnFlagOFF 255  (* done with temp. flag *)
  2168. IsLocated 234 220  (* bank list in blender or pouch or mush *)
  2169. OR
  2170. IsLocated 234 231
  2171. OR
  2172. IsLocated 234 280
  2173. TurnFlagON 255  (* temp. flag on *)
  2174. END_COMMAND
  2175.  
  2176. (* ... continued ... *)
  2177. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2178. FlagON 255  (* continued from last command *)
  2179. TurnFlagOFF 255  (* done with temp. flag *)
  2180. Destroy 231  (* tagged puch *)
  2181. Destroy 232  (* credit cards *)
  2182. Destroy 233  (* floppy disk *)
  2183. Destroy 235  (* bank list *)
  2184. TurnFlagON 7  (* everything here *)
  2185. END_COMMAND
  2186.  
  2187.  
  2188. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2189. FlagON 7  (* all of thieve's tools in purple mush *)
  2190. PrintMessage 127  (* flash! *)
  2191. SwapLocations 280 282  (* purple mush --> reagent *)
  2192. DoneWithTurn
  2193. END_COMMAND
  2194.  
  2195. COMMAND PUT EXTENSION CORD IN PURPLE MUSH
  2196. FlagOFF 7  (* not all of thieve's tools in purple mush *)
  2197. PrintMessage 128  (* flash! -- no good *)
  2198. DoneWithTurn
  2199. END_COMMAND
  2200.  
  2201.  
  2202. (*** Commands for pouring the reagent on the book and winning the
  2203.      game.                                                        ***)
  2204.  
  2205. COMMAND PUT LIQUID ON LOCK
  2206. ReDirectTo PUT LIQUID ON NOTEBOOK
  2207. END_COMMAND
  2208.  
  2209. COMMAND PUT LIQUID ON NOTEBOOK
  2210. NOT NOUNPresent
  2211. OR
  2212. NOT Present 200  (* dnd notebook *)
  2213. QuitAllCmds (* let AGT handle it *)
  2214. END_COMMAND
  2215.  
  2216. COMMAND PUT LIQUID ON NOTEBOOK
  2217. PrintMessage 130  (* the lock disolves *)
  2218. Present 300  (* If Tark is here ... *)
  2219. PrintMessage 131  (* ... she fades away *)
  2220. END_COMMAND (* in either case, drop through to next part *)
  2221.  
  2222. COMMAND PUT LIQUID ON NOTEBOOK
  2223. PrintMessage 132  (* hoorah!  you win! *)
  2224. WaitForReturn
  2225. PlusScore 10  (* worth ten points *)
  2226. WinGame
  2227. DoneWithTurn
  2228. END_COMMAND
  2229.  
  2230. COMMAND PUT MUSH ON LOCK
  2231. ReDirectTo PUT MUSH ON NOTEBOOK
  2232. END_COMMAND
  2233.  
  2234. COMMAND PUT MUSH ON NOTEBOOK
  2235. NOUNPresent
  2236. Present 200  (* dnd notebook *)
  2237. PrintMessage 133  (* not much happens *)
  2238. DoneWithTurn
  2239. END_COMMAND
  2240.  
  2241.  
  2242. (*** Commands to implement Paisley Cake trick for getting into the study.
  2243.      Player must substitute paisley Cake on tray in kitchen.  Butler then
  2244.      comes and delivers tray to demoness.  Demoness gets horny.  Will wait
  2245.      in the stuidy for awhile, and then she rushes out and becomes a
  2246.      random encounter.  We ensure that a random encounter doesn't take
  2247.      place when other hostiles are present since the half-hour scene would
  2248.      be implausible then.                                               ***)
  2249.  
  2250. COMMAND ANY
  2251. AtLocation 86  (* Long Hall *)
  2252. FlagOFF 8  (* butler never appeared before in short hall *)
  2253. PrintMessage 141  (* he does, delivering tray to study and leaving *)
  2254. NOT IsLocated 273 60  (* silver tray removed from kitchen *)
  2255. SendToRoom 274 60  (* butler prepares another dessert tray *)
  2256. END_COMMAND
  2257.  
  2258. COMMAND ANY
  2259. AtLocation 86  (* Long Hall *)
  2260. FlagOFF 8  (* butler just appeared above *)
  2261. IsLocated 272 60  (* dinner tray still in castle kitchen *)
  2262. Destroy 272  (* it's been delivered now *)
  2263. SendToRoom 283 90  (* put empty dinner tray in study *)
  2264. END_COMMAND
  2265.  
  2266. COMMAND ANY
  2267. AtLocation 86  (* Long Hall *)
  2268. FlagOff 8  (* butler just appeared above *)
  2269. TurnFlagON 8  (* we handled it above, just need to... *)
  2270. DoneWithTurn  (* ...interrupt whatever Phil was doing *)
  2271. END_COMMAND
  2272.  
  2273. COMMAND PUT PAISLEY CAKE ON DINNER TRAY
  2274. NOUNPresent
  2275. OBJECTPresent
  2276. ObjectIsNumber 272  (* dinner tray *)
  2277. SendToRoom 250 272  (* Paisely cake --> tray *)
  2278. PrintMessage 157  (* you do it *)
  2279. DoneWithTurn
  2280. END_COMMAND
  2281.  
  2282. COMMAND PUT PAISLEY CAKE ON SILVER TRAY
  2283. NOUNPresent
  2284. OBJECTPresent
  2285. ObjectIsNumber 273  (* the silver tray *)
  2286. SomethingInside 273  (* something already there *)
  2287. PrintMessage 182  (* no room *)
  2288. DoneWithTurn
  2289. END_COMMAND
  2290.  
  2291. COMMAND PUT PAISLEY CAKE ON GOLD TRAY
  2292. NOUNPresent
  2293. OBJECTPresent
  2294. ObjectIsNumber 274  (* the gold tray *)
  2295. SomethingInside 274  (* something already there *)
  2296. PrintMessage 182  (* no room *)
  2297. DoneWithTurn
  2298. END_COMMAND
  2299.  
  2300. COMMAND PUT PAISLEY CAKE ON SILVER TRAY
  2301. NOUNPresent
  2302. OBJECTPresent
  2303. ObjectIsNumber 273  (* silver tray *)
  2304. SendToRoom 250 273  (* Paisely cake --> tray *)
  2305. PrintMessage 157  (* you do it *)
  2306. DoneWithTurn
  2307. END_COMMAND
  2308.  
  2309. COMMAND PUT PAISLEY CAKE ON GOLD TRAY
  2310. NOUNPresent
  2311. OBJECTPresent
  2312. ObjectIsNumber 274  (* gold tray *)
  2313. SendToRoom 250 274  (* Paisely cake --> tray *)
  2314. PrintMessage 157  (* you do it *)
  2315. DoneWithTurn
  2316. END_COMMAND
  2317.  
  2318. COMMAND ANY
  2319. IsLocated 250 272  (* Paisely Cake left on dinner tray *)
  2320. IsLocated 272 60   (* which is in kitchen *)
  2321. TurnFlagON 9  (* will be delivered *)
  2322. TurnFlagON 8  (* forget seeing butler first time in long hall *)
  2323. Destroy 272  (* will be taken now by butler *)
  2324. SendToRoom 283 90  (* put empty dinner tray in study *)
  2325. END_COMMAND
  2326.  
  2327. COMMAND ANY
  2328. IsLocated 250 273  (* Paisley Cake left on dessert tray *)
  2329. IsLocated 273 60  (* which is in kitchen *)
  2330. TurnFlagON 9  (* it will be delivered *)
  2331. TurnFlagON 8  (* forget seeing butler first time in long hall *)
  2332. Destroy 273  (* will be taken now by butler *)
  2333. SendToRoom 284 90  (* put empty dessert tray in study *)
  2334. END_COMMAND
  2335.  
  2336. COMMAND ANY
  2337. IsLocated 250 274  (* Paisely Cake left on 2nd dessert tray *)
  2338. IsLocated 274 60  (* in kitchen *)
  2339. TurnFlagON 9  (* will be delivered *)
  2340. TurnFlagON 8  (* forget seeing butler first time in long hall *)
  2341. Destroy 274  (* will be taken now by butler *)
  2342. SendToRoom 285 90  (* put empty 2nd dessert tray in study *)
  2343. END_COMMAND
  2344.  
  2345. COMMAND ANY
  2346. FlagON 9  (* Paisely Cake set up for delivery *)
  2347. SwapLocations 312 313  (* demoness --> amorous demoness *)
  2348. TurnCounterON 11  (* time horny demoness been in study *)
  2349. NOT AtLocation 60  (* castle kitchen *)
  2350. TurnFlagOFF 9  (* don't need flag anymore *)
  2351. END_COMMAND
  2352.  
  2353. COMMAND ANY
  2354. FlagON 9  (* Paisley Cake delivered above, Phil in kitchen *)
  2355. NOT InRoom 272  (* cake was on dinner tray or dinner tray not around *)
  2356. PrintMessage 147  (* butler enters and takes tray with Paisely Cake *)
  2357. TurnFlagOFF 9  (* don't need flag now *)
  2358. DoneWithTurn  (* interrupted whatever Phil was doing *)
  2359. END_COMMAND
  2360.  
  2361. COMMAND ANY
  2362. FlagON 9  (* Paisley cake delivered above, dinner tray still around *)
  2363. PrintMessage 168  (* butler takes both dessert and dinner tray *)
  2364. TurnFlagOFF 9  (* don't need flag now *)
  2365. Destroy 272  (* dinner tray *)
  2366. SendToRoom 283 90  (* empty dinner tray --> study *) 
  2367. DoneWithTurn  (* interrupted whatever Phil was doing *)
  2368. END_COMMAND
  2369.  
  2370. COMMAND ANY
  2371. Present 313  (* amorous demoness *)
  2372. FlagOFF 106  (* Phil is male *)
  2373. FlagON 105  (* Tark is male *)
  2374. Present 300  (* Tark is here *)
  2375. PrintMessage 148  (* they are "attacked" by demoness *)
  2376. Destroy 313  (* demoness runs off *)
  2377. DoneWithTurn
  2378. END_COMMAND
  2379.  
  2380. COMMAND ANY
  2381. Present 313  (* horny demoness *)
  2382. FlagOFF 106  (* Phil is male *)
  2383. PrintMessage 149  (* Phil is "attacked" by horny demoness *)
  2384. Destroy 313  (* demoness runs off *)
  2385. DoneWithTurn
  2386. END_COMMAND
  2387.  
  2388. COMMAND ANY
  2389. Present 313  (* horny demoness *)
  2390. FlagON 105  (* Tark is male *)
  2391. Present 300  (* Tark is here *)
  2392. PrintMessage 150  (* Tark "attacked" by horny demoness *)
  2393. Destroy 313  (* demoness runs off *)
  2394. DoneWithTurn
  2395. END_COMMAND
  2396.  
  2397. COMMAND ANY
  2398. Present 313  (* horny demoness *)
  2399. PrintMessage 151  (* no males -- frustrated demoness runs away *)
  2400. Destroy 313  (* demoness runs off *)
  2401. END_COMMAND  (* phil can do whatever he was doing *)
  2402.  
  2403. COMMAND ANY
  2404. CounterGT 11 20  (* demoness has been in study for awhile *)
  2405. NOT Present 313  (* and is not here *)
  2406. IsSomewhere 313  (* and is still alive *)
  2407. TurnFlagON 10  (* she leaves in search of men --> random monster *)
  2408. PrintMessage 156  (* you hear a frustrated shriek *)
  2409. TurnCounterOFF 11  (* counter no longer needed *)
  2410. Destroy 313  (* no longer in study *)
  2411. END_COMMAND
  2412.  
  2413. COMMAND WAIT
  2414. CounterGT 11 1  (* horny demoness is fidgeting in study *)
  2415. NOT Present 313  (* and is not here *)
  2416. NOT AtLocation 85  (* long hall *)
  2417. NOT AtLocation 86  (* short hall *)
  2418. IsSomewhere 313  (* demoness still alive *)
  2419. TurnFlagON 10  (* she leaves in search of men --> random monster *)
  2420. PrintMessage 155  (* you hear a frustrated shriek *)
  2421. TurnCounterOFF 11  (* counter no longer needed *)
  2422. Destroy 313  (* no longer in study *)
  2423. DoneWithTurn
  2424. END_COMMAND
  2425.  
  2426. COMMAND WAIT
  2427. CounterGT 11 1  (* horny demoness is fidgeting in study *)
  2428. NOT Present 313  (* and is not here *)
  2429. AtLocation 85  (* long hall *)
  2430. OR
  2431. AtLocation 89  (* short hall *)
  2432. IsSomewhere 313  (* demoness still alive *)
  2433. PrintMessage 154  (* she runs out of study and sees you *)
  2434. PutInCurrentRoom 313  (* demoness appears *)
  2435. DoneWithTurn
  2436. END_COMMAND
  2437.  
  2438. COMMAND ANY
  2439. FlagON 10 (* demoness is horny and out of study *)
  2440. AtLocationGT 49  (* Phil is in castle *)
  2441. NOT AtLocation 83  (* not where phil can be attacked ... troll room *)
  2442. NOT Present 307  (* ... charmed snakes *)
  2443. NOT Present 308  (* ... animated skeletons *)
  2444. NOT Present 309  (* ... troll lord *)
  2445. NOT Present 311  (* ... demigod *)
  2446. NOT Present 314  (* ... guard *)
  2447. FlagOFF 114  (* guard not coming *)
  2448. TurnFlagON 255  (* set temp. flag to continue with next command *)
  2449. END_COMMAND
  2450.  
  2451. COMMAND ANY
  2452. FlagON 255  (* cont'd from previous command *)
  2453. TurnFlagOFF 255  (* done with temp. flag *)
  2454. RandomVariable 25 100  (* 1 in 100 chance of demoness showing up *)
  2455. VariableEquals 25 1
  2456. PrintMessage 152 (* demoness shows up *)
  2457. PutInCurrentRoom 313  (* put amorous demon here *)
  2458. TurnFlagOFF 10  (* demoness wil not bother them again *)
  2459. END_COMMAND  (* process whatever Phil was doing *)
  2460.  
  2461.  
  2462. (*** Commands to implement patrolling guard. ***)
  2463.  
  2464. COMMAND ANY
  2465. AtLocationGT 52  (* Phil inside castle, has reached courtyard *)
  2466. CounterEquals 12 0  (* guard not patrolling yet *)
  2467. TurnCounterON 12  (* start guard patrolling *)
  2468. END_COMMAND
  2469.  
  2470. (* guard is moving *)
  2471.  
  2472. COMMAND ANY
  2473. FlagON 113  (* guard is supposed to move this turn *)
  2474. FlagOFF 114  (* Phil wasn't in guard's next room for warning *)
  2475. OR
  2476. VerbIsDirection  (* Phil trying to move away *)
  2477. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2478. SubtractVariables 25 10  (* subtract next room # of guard's rounds *)
  2479. VariableEquals 25 0  (* Phil is now in guard's next room *)
  2480. TurnFlagOFF 113  (* delay for a round so that he can get warning *)
  2481. END_COMMAND
  2482.  
  2483. COMMAND ANY
  2484. FlagON 113  (* move guard this turn [set below] *)
  2485. NOT Present 314  (* guard not attacking Phil *)
  2486. IsSomewhere 314  (* guard not dead *)
  2487. SendToVariableRoom 314 10  (* move guard to next room of his rounds *)
  2488. TurnFlagOFF 113  (* he's moved now *)
  2489. TurnCounterON 12  (* start counting time he's in current room *)
  2490. TurnFlagOFF 114  (* reinitialize: no warnings yet of subsequent move *)
  2491. Present 314  (* if guard now in current room ... *)
  2492. PrintMessage 161  (* ... let Phil know *)
  2493. END_COMMAND
  2494.  
  2495. COMMAND ANY
  2496. CounterGT 12 2  (* guard will move next turn *)
  2497. IsSomewhere 314  (* guard is still alive *)
  2498. TurnFlagON 113  (* move guard next turn *)
  2499. FlagOFF 114  (* no warning yet given of guard's approach *)
  2500. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2501. SubtractVariables 25 10  (* subtract next room # of guard's rounds *)
  2502. VariableEquals 25 0  (* guard moving into current room *)
  2503. PrintVariableMessage 20  (* hear guard approach from relevant direction *)
  2504. TurnFlagON 114  (* Warning given *)
  2505. END_COMMAND
  2506.  
  2507. (* definition of the guards's rounds *)
  2508.  
  2509. COMMAND ANY
  2510. SetVariableTo 11  0  (* room to north: none *)
  2511. SetVariableTo 12  0  (* room to west: none *)
  2512. SetVariableTo 13  0  (* room to south: none *)
  2513. SetVariableTo 14  0  (* room to east: none *)
  2514. SetVariableTo 15  0  (* room up: none *)
  2515. SetVariableTo 16  0  (* room down: none *)
  2516. SetVariableTo 17  0  (* room northwest: none *)
  2517. SetVariableTo 18  0  (* room southwest: none *)
  2518. SetVariableTo 19  0  (* room "enter": none *)
  2519. END_COMMAND
  2520.  
  2521. COMMAND ANY
  2522. IsLocated 314 58  (* guard in main hall *)
  2523. SetVariableTo 10 80  (* next room he will visit: upper hall *)
  2524. SetVariableTo 12 59  (* room to west: dining room *)
  2525. SetVariableTo 13 53  (* room to south: courtyard *)
  2526. SetVariableTo 14 57  (* room to east: tapestry room *)
  2527. SetVariableTo 15 80  (* room up: upper hall *)
  2528. SetVariableTo 20 214 (* message when guard leaves: moving up *)
  2529. END_COMMAND
  2530.  
  2531. COMMAND ANY
  2532. IsLocated 314 80  (* guard in upper hall *)
  2533. SetVariableTo 10 85  (* next room he will visit: library *)
  2534. SetVariableTo 12 85  (* room to west: library *)
  2535. SetVariableTo 14 81  (* room to east: sex-change room *)
  2536. SetVariableTo 16 58  (* room down: upper hall *)
  2537. SetVariableTo 20 213 (* message when guard leaves: moving west *)
  2538. END_COMMAND
  2539.  
  2540. REM  (* short loop for tesing: main hall <--> upper hall *)
  2541. REM  COMMAND ANY
  2542. REM  IsLocated 314 80  (* guard in upper hall *)
  2543. REM  SetVariableTo 10 58  (* next room he will visit: main hall *)
  2544. REM  SetVariableTo 12 85  (* room to west: library *)
  2545. REM  SetVariableTo 14 82  (* room to east: sex-change room *)
  2546. REM  SetVariableTo 16 58  (* room down: upper hall *)
  2547. REM  SetVariableTo 20 215 (* message when guard leaves: moving down *)
  2548. REM  END_COMMAND
  2549.  
  2550. COMMAND ANY
  2551. IsLocated 314 85  (* guard in library *)
  2552. SetVariableTo 10 86  (* next room he will visit: long hall *)
  2553. SetVariableTo 13 86  (* room to south: long hall *)
  2554. SetVariableTo 14 80  (* room to east: upper hall *)
  2555. SetVariableTo 20 210 (* message when guard leaves: moving south *)
  2556. END_COMMAND
  2557.  
  2558. COMMAND ANY
  2559. IsLocated 314 86  (* guard in long hall *)
  2560. SetVariableTo 10 89  (* next room he will visit: short hall *)
  2561. SetVariableTo 11 85  (* room to north: library *)
  2562. SetVariableTo 13 89  (* room to south: short hall *)
  2563. SetVariableTo 17 87  (* room to northwest: north bedroom *)
  2564. SetVariableTo 18 88  (* room to southwest: south bedroom *)
  2565. SetVariableTo 20 210 (* message when guard leaves: moving south *)
  2566. END_COMMAND
  2567.  
  2568. COMMAND ANY
  2569. IsLocated 314 89  (* guard in short hall *)
  2570. SetVariableTo 10 61  (* next room he will visit: servant's hall *)
  2571. SetVariableTo 11 86  (* room to north: long hall *)
  2572. SetVariableTo 14 90  (* room to east: study *)
  2573. SetVariableTo 16 61  (* room down: servant's hall *)
  2574. SetVariableTo 20 215 (* message when guard leaves: moving down *)
  2575. END_COMMAND
  2576.  
  2577. COMMAND ANY
  2578. IsLocated 314 61  (* guard in servant's hall *)
  2579. SetVariableTo 10 60  (* next room he will visit: kitchen *)
  2580. SetVariableTo 11 60  (* room to north: kitchen *)
  2581. SetVariableTo 14 62  (* room to east: servant's quarters *)
  2582. SetVariableTo 15 89  (* room up: short hall *)
  2583. SetVariableTo 20 212 (* message when guard leaves: moving north *)
  2584. END_COMMAND
  2585.  
  2586. COMMAND ANY
  2587. IsLocated 314 60  (* guard in kitchen *)
  2588. SetVariableTo 10 53  (* next room he will visit: courtyard *)
  2589. SetVariableTo 11 59  (* room to north: dining room *)
  2590. SetVariableTo 13 61  (* room to south: servant's hall *)
  2591. SetVariableTo 14 53  (* room to east: courtyard *)
  2592. SetVariableTo 20 211 (* message when guard leaves: moving east *)
  2593. END_COMMAND
  2594.  
  2595. COMMAND ANY
  2596. IsLocated 314 53  (* guard in courtyard *)
  2597. SetVariableTo 10 55  (* next room he will visit: statue gallery *)
  2598. SetVariableTo 11 58  (* room to north: main hall *)
  2599. SetVariableTo 12 60  (* room to west: kitchen *)
  2600. SetVariableTo 13 50  (* room to south: entry way *)
  2601. SetVariableTo 14 55  (* room to east: statue gallery *)
  2602. SetVariableTo 19 54  (* room to "enter": mud house *)
  2603. SetVariableTo 20 211 (* message when guard leaves: moving east *)
  2604. END_COMMAND
  2605.  
  2606. COMMAND ANY
  2607. IsLocated 314 55  (* guard in statue gallery *)
  2608. SetVariableTo 10 56  (* next room he will visit: conference room *)
  2609. SetVariableTo 11 56  (* room to north: conference room *)
  2610. SetVariableTo 12 53  (* room to west: courtyard *)
  2611. SetVariableTo 20 212 (* message when guard leaves: moving north *)
  2612. END_COMMAND
  2613.  
  2614. COMMAND ANY
  2615. IsLocated 314 56  (* guard in conference room *)
  2616. SetVariableTo 10 57  (* next room he will visit: tapestry room *)
  2617. SetVariableTo 11 57  (* room to north: tapestry room *)
  2618. SetVariableTo 13 55  (* room to south: statue gallery *)
  2619. SetVariableTo 20 212 (* message when guard leaves: moving north *)
  2620. END_COMMAND
  2621.  
  2622. COMMAND ANY
  2623. IsLocated 314 57  (* guard in tapestry room *)
  2624. SetVariableTo 10 58  (* next room he will visit: main hall *)
  2625. SetVariableTo 12 58  (* room to west: main hall *)
  2626. SetVariableTo 13 56  (* room to south: conference room *)
  2627. SetVariableTo 20 213 (* message when guard leaves: moving west *)
  2628. END_COMMAND
  2629.  
  2630. REM  (* for debugging *)
  2631. REM  COMMAND ANY
  2632. REM  PrintMessage 216  (* where will guard go next *)
  2633. REM  END_COMMAND
  2634.  
  2635. (* Phil tries to move into room with guard *)
  2636.  
  2637. COMMAND NORTH
  2638. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2639. SubtractVariables 25 13  (* subtract room # south of guard *)
  2640. VariableEquals 25 0  (* we are south of guard *)
  2641. PrintMessage 158  (* you hear guard in next room *)
  2642. PromptForNO  (* don't continue? *)
  2643. DoneWithTurn  (* abort move *)
  2644. END_COMMAND
  2645.  
  2646.  
  2647. COMMAND WEST
  2648. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2649. SubtractVariables 25 14  (* subtract room # east of guard *)
  2650. VariableEquals 25 0  (* we are east of guard *)
  2651. PrintMessage 158  (* you hear guard in next room *)
  2652. PromptForNO  (* don't continue? *)
  2653. DoneWithTurn  (* abort move *)
  2654. END_COMMAND
  2655.  
  2656. COMMAND SOUTH
  2657. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2658. SubtractVariables 25 11  (* subtract room # north of guard *)
  2659. VariableEquals 25 0  (* we are south of guard *)
  2660. PrintMessage 158  (* you hear guard in next room *)
  2661. PromptForNO  (* don't continue? *)
  2662. DoneWithTurn  (* abort move *)
  2663. END_COMMAND
  2664.  
  2665. COMMAND EAST
  2666. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2667. SubtractVariables 25 12  (* subtract room # west of guard *)
  2668. VariableEquals 25 0  (* we are south of guard *)
  2669. PrintMessage 158  (* you hear guard in next room *)
  2670. PromptForNO  (* don't continue? *)
  2671. DoneWithTurn  (* abort move *)
  2672. END_COMMAND
  2673.  
  2674. COMMAND UP
  2675. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2676. SubtractVariables 25 16  (* subtract room # down from guard *)
  2677. VariableEquals 25 0  (* we are down from guard *)
  2678. PrintMessage 158  (* you hear guard in next room *)
  2679. PromptForNO  (* don't continue? *)
  2680. DoneWithTurn  (* abort move *)
  2681. END_COMMAND
  2682.  
  2683. COMMAND DOWN
  2684. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2685. SubtractVariables 25 15  (* subtract room # up from guard *)
  2686. VariableEquals 25 0  (* we are up from guard *)
  2687. PrintMessage 158  (* you hear guard in next room *)
  2688. PromptForNO  (* don't continue? *)
  2689. DoneWithTurn  (* abort move *)
  2690. END_COMMAND
  2691.  
  2692. COMMAND NORTHEAST
  2693. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2694. SubtractVariables 25 18  (* subtract room # southwest of guard *)
  2695. VariableEquals 25 0  (* we are southwest of guard *)
  2696. PrintMessage 158  (* you hear guard in next room *)
  2697. PromptForNO  (* don't continue? *)
  2698. DoneWithTurn  (* abort move *)
  2699. END_COMMAND
  2700.  
  2701. COMMAND SOUTHEAST
  2702. MakeVarRoomNum 25  (* current room number --> temp. variable *)
  2703. SubtractVariables 25 17  (* subtract room # northwest of guard *)
  2704. VariableEquals 25 0  (* we are northwest of guard *)
  2705. PrintMessage 158  (* you hear guard in next room *)
  2706. PromptForNO  (* don't continue? *)
  2707. DoneWithTurn  (* abort move *)
  2708. END_COMMAND
  2709.  
  2710.  
  2711. (* These commands must be last *)
  2712. (* !!! Should later be moved so only last of ANYBODY, ... commands !!! *)
  2713.  
  2714.  
  2715. COMMAND ANYBODY, ANY
  2716. NAMEIsNumber 300  (* Tark is being adressed *)
  2717. Present 300  (* Tark is here *)
  2718. PrintMessage 8  (* Tark doesn't pay heed *)
  2719. DoneWithTurn
  2720. END_COMMAND
  2721.  
  2722. COMMAND ANYBODY, ANY
  2723. NAMEIsNumber 305  (* Cindy trapped in mud-house *)
  2724. OR
  2725. NAMEIsNumber 310  (* free Cindy *)
  2726. Present 305  (* she is here *)
  2727. OR
  2728. Present 310
  2729. PrintMessage 140  (* sorry ... *)
  2730. END_COMMAND
  2731.  
  2732.  
  2733. (*** Commands to handle Phil's death.  If he's tatood, he gets resurrected
  2734.      in Mantel's mansion.  If he's not, then he dies.  We don't handle the
  2735.      normal AGT resurrection, but we move him to a DEATH room so that he has
  2736.      the opportunity to restore previous states of the same.  These commands
  2737.      must come at the end of the AGT file.                               ***)
  2738.  
  2739. COMMAND KILL_ALL
  2740. GoToRoom 197  (* kill others in irrelevant room to avoid LOOK bug *)
  2741. Destroy 300  (* Tark dies *)
  2742. Destroy 310  (* Cindy dies *)
  2743. ReDirectTo KILL_PLAYER
  2744. END_COMMAND  (* Phil dies *)
  2745.  
  2746. COMMAND KILL_PLAYER
  2747. RemoveFromGroup 300  (* Tark doesn't follow to death or safety *)
  2748. RemoveFromGroup 310  (* nor Cindy *)
  2749. RemoveEverything (* nor anything else *)
  2750. DropEverything
  2751. TurnCounterOFF 10  (* no hostiles present anymore *)
  2752. GoToRoom 199  (* death *)
  2753. END_COMMAND
  2754.  
  2755. COMMAND KILL_PLAYER
  2756. FlagOFF 108  (* Phil does not have emergency evasion tatoos *)
  2757. Tone 196 1013  (* "March of the Dolls" *)
  2758. Tone   0   23
  2759. Tone 196  563
  2760. Tone   0   23
  2761. Tone 196  450
  2762. Tone   0   23
  2763. Tone 196  900
  2764. Tone 233  675
  2765. END_COMMAND
  2766.  
  2767. COMMAND KILL_PLAYER
  2768. FlagOFF 108  (* Phil does not have emergency evasion tatoos *)
  2769. Tone 220  338  (* cont'd *)
  2770. Tone   0   23
  2771. Tone 220  675
  2772. Tone 196  338
  2773. Tone   0   23
  2774. Tone 196  675
  2775. Tone 185  450
  2776. Tone 196  900
  2777. DoneWithTurn  (* dead for good *)
  2778. END_COMMAND
  2779.  
  2780. COMMAND KILL_PLAYER
  2781. TurnFlagOFF 108  (* Phil saved by tatoos -- all used up now *)
  2782. AddToGroup 300  (* Tark will follow when next they meet *)
  2783. AddToGroup 310  (* as will Cindy *)
  2784. AtLocationLT 50  (* Phil was outside castle *)
  2785. GoToRoom 15  (* then he ends in mansion inside bedroom *)
  2786. END_COMMAND
  2787.  
  2788. COMMAND KILL_PLAYER
  2789. AtLocationGT 49  (* Phil was inside castle *)
  2790. GoToRoom 63  (* then he ends up in mansion in courtyard *)
  2791. END_COMMAND
  2792.  
  2793. COMMAND KILL_PLAYER
  2794. FlagON 106  (* Phil is currently female *)
  2795. OR
  2796. FlagON 109  (* or he is currently a eunich *)
  2797. PutInCurrentRoom 295  (* "you are now male" message *)
  2798. TurnFlagOFF 106  (* Phil is now male *)
  2799. END_COMMAND
  2800.  
  2801. COMMAND KILL_PLAYER
  2802. DoneWithTurn
  2803. END_COMMAND
  2804.